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Je desire recevoir - sans engagement- votre 
documentation sur les cartes Speedisk™ 



Lanti-disque 

Speedisk™, 
la RAM Card a memoire permanent© 

Rapidite Temps d'acces a 1'information : 0,2 ms 
(100 fois plus rapide que les disques 

durs...). 

Par exemple ; 

domarrage sur Basic.System en 3 s, 
AppieWriter disponiDie en 6: peine 1 s, 

Fiabll ite Constitute de circuit CMOS d tres 

faible consommatton, Speedisk™ est 
aussi fiabte que i'ordinateur lui-rneme, 
Elle est Insensible 6 I'environnement. 

CapaClte Speedisk™ est praposee en quatre 
versions : 

1 Mo (1048 576 octets) 

384Ko extensible d IMo 

avec horioge compatible ProDOS 

(pour les Apple //e) ou sans (UGS) 



Compatibility 



Prix 



100% compatible avec ProDOS (c'est 
un volume), Speedisk™ fonctionne sur 
Apple )(+. sur Apple //e et sur Apple 
IIGS. 

Lecteur de Pom's, vous b6n6flciez 
d une remise de 10 % : 



SP400 

384KO 
SP1000 

1 Mo 



DO 

gOO 



SP400H > 
384Ko hortoge A2>fffQ 

SP1000H 
1 Mo horioge 6^9*30 



3591X10 
5 391,00 

4 122,00 

5 922,00 



Garanti© Speedisk™ est une fabrication 

f rancaiso garantie un an par echange 
de la carte. 

Banc d'essai dans la revue Pom 's n" 3 J 



Vente par correspondence, Logrna S.A. 

documentation, 1 2, rue dAnjou 
renseignemenis 78000 Versailles 

Teh (1)39 51 2443 

Speedisk™ est une marque deposee de 
Tttot Informatique® - France 
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Ce bref questionnaire 
est pour nous une 
precieuse source de 
renseignements : ses 
precedentes appari- 
tions sont a l'origine des 
disquettes DOS/Fro- 
DOS, des disquettes 
3,5", des programmes 
de communication, II 
nous perm ettra de 
suivre au mieux 
revolution de vos be- 
soins et celle de votre 
materiel. II constituera 
egalementun moyen de 
gagner 1'un des 10 abon- 
nements avec dis- 
quettes... 




Ce qu'il f aut changer 



Vous avez ; 

-de 15 ans — O 

de 15 a 19 ans O 

de 20 a 24 ans O 

de 25 a 34 ans O 

de 35a45ans..........O 

+ dc 45 ana O 

Sexe 

Masculin O 

Femirrin ,.....,..0 

Les langages que vous 
pratiquez aisement : 

Basic O 

Pascal O 

Forth .... ...O 

Logo O 

Asm Apple // O 

Asm Mac ...O 

Autres 

Votre niveau en pro- 
gramma tion : 

Utilisateur O 

Debutant O 

Intermediate O 

Averti.. O 

Haut niveau O 

Chaque semaine, vous 

etes dcvant votre 

micro : 

-de 2 hemes ....,0 

de3 a 8 heures O 

de - £ 16 heures O 

+ de 16 heures O 



Votre ordinateur : 

Apple ]L+ O 

Apple / /e O 

Apple //e+ O 

Apple //c .O 

Apple IIgs O 

Apple /// O 

Compatible .0 

Macintosh 128 ........O 

Macintosh 512 ...O 

Macintosh Plus O 

Lisa/Mac XL O 

Mac II/SE O 

Votre rmprintantc : 

ImageWriter O 

Image Writer 2 O 

Apple DMP O 

LaserWriter O 

Epson O 

Sc'ikosha O 

Mannesman O 

Centrunics O 

OKI O 

Scribe O 

Autre 



Extensions,, 

peripheriques : 

Carte SO colonnes...O 

80 col. ctendue O 

Carte Z80 CP/M ....O 

Carte souris O 

Disquc dur O 

Lecteur WOKo O 

Lecteur800Ko O 

Table tracante .O 

Minitel O 

Modem O 

Extension memoire O 

Speedisk O 

Autre : 



Prochainement, vous 
allez acquerir : 

Apple // O 

Macintosh O 

Lecteurs O 

Minitel O 

Modem O 



CalvaCom t 

Vous etes abonne" ...O 

Depuis ; 

6 mois oti plus ........O 

Moins de 6 mois O 

Combien de mmneros 
de la revue Pom's 
avez-vous lu ? 

De 5 (tres ban) a (ties 
mauvais), votre 
opinion sui : 

Niveau general .... 

Presentation 

Interet des 

programmes , 

Clarte des 

articles .„ 

Interet pedago- 

gique — 

Micro-Infos 

Disquettes 

Ce que vous preTerez : 



Ce qu'il faut 
developper : 



Vos autrcs revues 
in formati ques : 



Vos remarques : 



Ce que vous de"testez : 



Facultatif 
Norn 
Adresse 

N° CalvaCom 
Abonne O 
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Pom's est entre dans sa septieme annee ! 
Nous avons vu beaucoup d'eau passer sous les ponts. Nous avons 
vu naitre et mourii* l'Apple III, Gulden, Infomag. Main tenant, 
c'est l'Apple TJc dont la vente est intcrrompuc. La gammc 
Macintosh est apparue et porte a present tres haut le flambeau, 
ayant meme reussi la percee dans les grands comptes ce que les 
a utres mo deles de la marque n'e talent jamais parvenus a faire ; 
il entraine dans sa lancee l'Apple lias qui devient 
incontestablement un 'grand' de la gamme, Apple Expo, chaque 
aTtTieeunereussite,nousra&suresurravenirdenoschersmicros : 
le fruit du travail des developpeurs aussi bien dans la creation de 
programmes que dans le liard' semble bien sans Uraite. 

Dans eette optique, nous continuous a foire evoluer Pom's pour 
vous apporter une qua lite de service gran diss ante. C'est 
aujourdliui la possibilite, par 1'intermediaire de notre boite aux 
lettres CalvaCom, de passer des com man des tele ma ti que s et de 
nous soumettre vos problemes techniques dans la mise en oeuvre 
des programmes de la revue : il nous arrive de repondre a des 
heures fort tardives et meme durant le week-end... n nous faut 
helas, lors d'affluence, privilegier nos abounds dans notre assis- 
tance technique : abonnez-voua ! 

S'abonner, c'est — outre une priorite dans l'aide que nous vous 
apportons — re ce voir Pom's avantlamise enkiosque, c'est passer 
gratuitement dans votre revue des petites annonces, c'est egale- 
mentrcecvoirpar tirage au sort des eadeaux surprise de valeur : 
logieiels, documents techniques (nouveaux abonnements sous- 
crits a partir du 30 novembre 87). C'est aussi un rapport plus 
etroit avec Pom's, un plus grand poids dans vos suggestions. 

Idees, nouvclles orientations ? Notre sondage ci-eontre nous 
permet de mteux vous mn naitre, c'est une sorte de trait d'union. 

Notre ami Jean-Michel Gourevitch est en route vers de nouvelles 
aventures et c'est desormais Jean-Yves Bourdin qui assurcra la 
chronique des nouvelles sur Apple //. A eette occasion nous vous 
proposons une nouvelle formule, "Apple // forever", composee de 
huit rubriques. La encore, c'est a vous de dire ce que vous pensez 
de eette innovation et aussi a vous d'y contribuer : envoyez-nous 
nouvelles, informations, 'patches'... 

I* con ten u de ce numero satisfera certainement les besoms de 
chacun ; en couverture, Tun des re sulfate de nos recherches dans 
le domaine de la communication : le couple micro-ordinateui*/ 
Minitel est doue d'un potentiel peu commun... 

Herve Thiriez 
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a carte Specdisk, grace a 
I'extreme rapidite d'acces 
aux Seiners, permel 
d'envisagcr de nouvelles 
applications WPL - lan- 
gage de pro grammar ion 
d'AppleWriter - applications qui 
rcsteraient lentes d'cxccution sur lcs 
supports tradiiionnels ; les programmes 
prescinds ici demeurent loutefois 
utilisables sur tous types de supports. 

Nous vous proposons deux 
programmes : 

- le premier pcnnei de disposer de la 
dale dans un fichier a charger a tous 
moments par une commande 
glossairc par exemple ; 

- le second montre un exemple 
d'autumaiisaliun du eourrier r6p6titif 
hahituel, devis, commande, 
relancc... Cet exemple utilise la 
date et gere une numerotation de 
documents. 

Bien sur, pour que tout eel a fonclionne, 
il faut disposer de la date. II y a irois 
methodes : 

- dotet son Apple d'une carte horloge ; 
y installer une Speedisk avec option 
horloge ; 

disposer d'un programme de boot qui 
demande la date et la met a jour dans 
les octets $BF90/$BF91 de 
ProDOS. REBOOT.5YSTEM dis- 
ponible dans la bibliottieque de 
CalvaCom convient fort hieri. 

La date 

Lc premier programme WPL, qui se 
contente de vmis offrir la dale a la 
fran^aise (03 novembre 19S7), s'execute 
en faisant simplement ; 
<ctrl-P>DO STARTUP. D 
Avant cet ordre, vous aurez mis sur 
voire disqucttc (ou plutot volume) lcs 
fichicrs STARTUP.D, INTDATED (le 
fichier mtermediaire VARIDATE.D se 
crtSe automatiquement) et DATE, 

Un insianl plus tard, le fichier DATE 
cree sur le volume contient la dale du 



jour : pour I'uliliser Faire simplement r 
<ctrl-L>DATB 

Mieux r installer la commande glossaire 

D<ctrl-T,>nATE> 

ainsi, la date sera sous la pomme : OD. 

Concreiement, le fonctionnemem se 

resume ainsi : 

STARTUP.D 

C'est le premier programme a 
s'executer. II sauvegarde un fichier vide 
dans lc catalogue courant puis charge ce 
catalogue en mernnire texte. I.a date en 
couis est la date de modification du 
fichier "VIDE" sous la forme : 
mm/jj/aa. STARTUP.D isolc done cene 
date en memoire tcxte et la transform© 
en un programme WPL sauvegarde" sous 
le nom de VARIDATE.D et execute a 
son tour par la demiere commande de 
STARTUP.D, 

VARIDATE.D 

Ce programme n'a qu'une fonction : il 
place dans les variables SB ie mois, $C 
le jour, SD I'annee, ce qui va permettre 
de les traiter a noire convenance. Cela 
fait, VARIDATE.D lance I'execurion de 
IN ID ATE. D, 3eme programme WPL 
(heureusement que Speedisfc met un 
tigre dans Apple Writer. . .). 

INIDATE.D 

n 6ta.it pcu utile dc gardcr la date sous la 
forme ' 01/01/1987, INIDATE.N 
pcauhnc le travail en la presentant sous 
la forme 01 Janvier J 987 et en la 
sau vegardam dans le fichier lexte 
"DATE" (remarquer le PGO Variable 
bien utile dans le programme WPL). En 
fin d'execution, DATE est disponible. 

Remarque : si aucun de vos 
programmes WPL n'utilise l'une des 
quaire variables disponibles ($D, par 
exemple), cet ensemble pourrait 
simplifie\ La date mise en forme serait 
placee non plus dans un fichier mais 
dans la variable $D, INIDATE sc 
terminant alors de la fagon suivante : 



12 pas d£cembre =$C 

pas $B$C $D-=$D 
$D rcsterail alors utilisable autanE de 
fois que ndecssaire au sein d'un 
programme WPL par la seule fonction 
du type : 

F/ (DATE) /$D/ 

O? 

STARTUP.D, VARIDATE.D et 
BNTDATE.D ne sont executes qu'une 
fois, a la mise en route d'AppleWriter. 
Si STARTUP.D est renomme 
STARTUP, vous benefkierez d'une 
exdeution automaiique lors du 
ddmairagc. 

Un exemple 
eomplet 

L'exemple d'utllisation qui suit inclul, 
en plus de 1'usage de la date te] que 
decrit, une fonction dc numerotation 
automaiique des documents retenant la 
forme : numero d 'ordre numero du mois 
(6709, 6S09, 6910, 7010, etc). B 
conduit a la realisation semi- 
automatique de commandes ou de 
relances. 

A cette fin le programme STARTUP.N 
remplaee le precedent STARTUP.D. 
STARTUP.N cree un programme 
VARB5ATE.N complete par la mise & 
jour du numero du mois dans le fichier 
NUMERO. 

STARTUP.N 

La comparaison des deux startups et des 
programmes V ARID ATE respectifs 
qu'ils creenl, permel de bien eompreiidre 
le processus de transformation de la 
date, initialement isolee du catalogue, 
en un programme WPL. 
Remarquer 1'usage dans la lSeme ligne 
de §C au lieu de $C. S'il etait ecrii $C, 
1'execution de la fonction de 
remplacement mettrail la valeur 
courante de la variable $C au lieu du 
nom de variable SC. Reste ensuite il 
ajoutcr la conunande de ("emplacement 
de £ par $ (c.f. fin du programme). 
Est ajoutd aussi le chargement du 
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glossaire (QEGLOSS AIRE) dont la 
seule commande prevue peimet revenir a 
tout moment au programme CHOIX, 
Cette commande est done a ajouter a 
voire glossaire habituel, 

VARIDATE.N 

VARIDATE.H conticnt maintcnant la 
fonction de misc a jour du numero du 
mois dans le fichier NUMERO. 11 lance 
I'execution de INIDATE.N 

INIDATE.N 

Sans changement, lance, l'eixecution de 
CHOIX. 

CHOIX 

Execute 1 pour la premiers fois 
automatiquemenl par I'interm^diaire de 
INIDATE.N, il doit etre le passage 
oblige de route nouvcllc application 
d'ou la commande inclu.se dans le 
gloss aiie. 

Pour limiter cet exemple, seules Ies 
options 1 et 3 sont utilisees. L'option 1 
permet de preparer unc commande ct 
l'option 3 une relance. 

Les programmes WPL RELANCE et 
COMMANDE sont simplifies. Cos 
programmes doiveni charger les fichiers 
de tabulation el d'impiessiou appropries. 
Ce. programme controls la validite du 
choix a l'aide, d'une part de la function 
de comparaison I controls de Escape, et 
d'autre part d'une boucle numerique 
limitant la valour choisi entrc et 4 ; 
f)«rCHOTX>4. 

GLOSSAIRE 

Le glossaire ne contient que la 



commands <ctrl-C> <rctrl-Pi» 
doCHOIX> (remarquer que > apres 
DOCHOIX signifie RETURN mais 
certaines versions d' Apple Writer exigent 
a la place lc signc §) qui permet par la 
commande : Cetrl-C d'appeler CHOIX 
apres chaque application. 

COMMANDE (RELANCE) 

Ce petit programme WPL permet de 
placer dans tine fiche standard 
(FICHCOMMANDE) preparee et mise 
en page a votre convenance, les donnfes 
variables mais systematiques qui lut 
sont liees. Pour ce qui notls OCCUpe 
presentemem, il s'agit de la dale par les 
instructions : 

PLSDATE=$A 

F/ (DATE) /$A/A 
et du numero par la meme methode : 
PLSNUMERO=?C 

F/ (NUMERO) /$C/a 
Le fichier NUMERO est mis a jour 
(incrementation de 100 de sortc que 
6709 par exemple devient 6809) et 
sauvogard^ pour 1'application suivance. 
La lettre de commande cr£6e est 
sauvegarde'e sous le nom : 
C.nom de fichier numero 
d'ou la commande WPL : 

SC. $B$C<rH><rH> 
ou <H><H> permet de supprimer le 
numfro du mois : si $C = 6709, 
Sd<RMft> = 67. 

Le fichier ainsi crde" permet de faire la 
sauvegarde finale par un simple 
<ctrl-S>=. 



Utilisation 

Pour cssaycr 1'cxcmplc ci-aprcs propose* 
il vous faut dans le catalogue courant : 

1 STARTUP. N 

a executer en premier 

2 INIDATE.N 

3 CROIX 

4 COMMANDE 

5 RELANCE 

6 FICHCOMMANDE 

7 FICHRELANCE 

8 NUMERO 

qui contient uniqeement le numero 
a incrementer 

9 GLOSSAIRE 
10 DATE 

Apres chaque application on revient 
dirccicmcnc au menu dc CHODC par la 
commande glossaire (""krtrl-C 

Remarque : pour la simplicity de la 
presentation, cet ensemble b' utilise 
aucun sous-catalogue. 11 est pourtant 
preferable de pnSvoir le cl&ssement des 
fichiers ct programmes dans des 
sous-catalogues sp6ciliques. En 
paiticuliei, pour le fishier VIDE, 1'ideal 
est qu'mi catalogue lui soil reserve afin 
que la fonction de recherche de 
STARTUP soil rapide. Si tel n'est pas 
le cas il est souhaitable de placer VIDE 
au ddbut du catalogue courant car 
STARTUP cherche non pas le fichier 
$' appelant VIDE mais le premier ficblcr 
de longueur nulle ! 
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Fichier STARTUP.D 



•no 

• -CESCXESCi 
•PND 

'PPRun'instant' i 
•0 

•OA£ 
•? 
'B 



•D 

•Si 
•NO 
•D 
•X 

•u 

•&*• 



*-$D, -NO, 



Efface mimoire lexie 
Efface llgne status 
Supprime affichage 
Affiche le message 
Sauvegarde un fichier vide 
Accepts son remplacement 
Charge le catalogue 
Quifte les cdes ProDOS 
Va au debut catalogue 
• * Postiionne le carseur 
Quitte la recherche 
Change le sens (<) 
Charge la date dans le buffer 
Efface memoire tcxte 
Change le sens ( > ) 
Date en m&noire iexte 
Change le sens 

PDOINIDATE.D* 



Transfarme 
la dale 



programme 
V>TL 



"Of 

■ f;/_'£-pasi 9.1 
•o? 

•F> /!f. -PAS! 
•O? 

■a 

• O? 

•F*, *=SC, * 
•0? 

'07 

• S WAR I DA TB.O 

• 

•pdoVARIDATE.D 

Fichier DATE 



03 ' n ovembre • 1 98 7 pas de retaur chariot apres 



Le sauvegarde... 
et I'execute 
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Fichier RELANCE 



■PND 

•PPR<CTRL-L> 

•NO 

•PLSNUMBRO 

•PSX-$C 
•PSX'+lOO 
•PAS (X) -$D 
• LNUMERO 
•F/$C/$D/A 
•S- 

•P1SDATE-SA 

•PPR-Num&r a -tie "duturae/jt - : • 

•PPR-Date" • * '* 

-PPR 
'NO 

- LFlCtUiELANCE 
•BF/ (DATE) /$A/ 
-0?F/(NOMERO)/?C/ 
■0? 

APP-PPR- II) 'Monsieur'- 12) 'Madame" 13) -Mada 

-inie, -Monsieur* 
•PPR •RETURN' pour • "Messieurs" • (Ets, -SARL, "Et 



SC 
$A 



•PIN" * »».•••»...•••• 

•PCS/$A// 

•PGOS 

•PSXSA 

•PCS/(X)/0/ 

-PGOAPP 

•PSYQ 

BOUCLE'PSY+1 

-PCS/(Y)/4/ 

•PGOAPP 

■FSX-1 

•PGOBOUCLE 

-PGO$A- 

1 T/ (apfeL) /Hons! ear/ a 
•pco-m 

2*F/ (APPELf /Madame/a 

•PGO-NO 

(RPFEL) /Madame, 'Monsieur/A 

• PGO'NO 
S'F/IAFPEL)// 

• IF/ (APPEL) /Msssi eurs/a 

NUTPK-Nom- au • richier-ae- sauvegarde • •• 

'PIN' ».*•«»•«« •■**■»*■« -sans-s ] g/3e »ni -espace' : * 
-PCS/$B// 

•pggno 

•PPR-Num-aoiuplet-dwdsstinataire • (return • — •■ 

•PIN' "'•"""•"•" ■ 

■FCS/SD// 
•PASSB-SD 

•PIN'Prenom- - 

•F/ (PRENOM) /$a/ 
■0?F/ <NOM) /SB/ 

'QlPltJ'Adresse ■ ■ * 

•F/ (ASR} /$A/ 
•0? 

A-PIN-Date-de- ia-faetura* ••••»../. ./. 

■PCS/? A// 

'PCOA 

•F! (DATE) !SA! 
•0? 

F'PlN'NuiJiero-de'la'faacure' • •♦..../..■■■■*-■ 



es. J 
•-SA 



-$B 



- 

=$::■ 



■SA 



-.fa 



'4 A 



•PCS/5 A// 
•PGOF 

'F! (NUMERO) >$A! 
•0?B 

C'PIN'Concernant 

■f / (CONCERNANT) /-concernant • $a/ 
■0? 

P'PIN'Montant'TTC* • (nombre'seul) 

•PCS/Sa// 

'PGOP 

•F/ (MONTANT) /SA/ 

'Q?SR. $B$C<CTRL-HXCTRL-R> 



Fichier 1NIDATE.D 



Efface page texts 
GOTO variable : $C est 
le n°du mois. 



Cltangeine/it du n"de mois 



' 'NO 

• 'PGOSC 
OO'PGOEBR 

01 'pas • janvier=Sc 
' * 'pgod 

02 'pas • fe" vrl er-Sc en nom de mois 

• ■ -pgod 

03'pas'mars-$c 
• • -pgod 

04 'pas'avril-Sc 
■ - -pgod 
05'pas'mal=Sc 
' • 'pgod 

06'pas']uin=$c 
— pgod 

07'pas'julllet-$c 

• • -pgod 

O8'pas'aouc-$c 

• • -pgod 

09>pas'septemHj:e=sc 

• * l pgod 

1 -pdH ' OUluijL &~$e 

' • -pgod 

11 'pas 'novembre—$c 

• • • pgod 

12 r pas'd£ cembre -{5c 

d ■ ID ATE Charge fichier date 

•F*—'l' *$B$C'$D* 

En remplace le conlenu 

■07 

•S-= Le sauvegarde 

•NO 

•PPR la cJate sbsc $D est dls 

-iponible dsns Jo fichier "DATE" 

•FPU 

•PPR voir 1 'exemple d'utill 

-isacion avec startup. n 

•PPR 

•PIN taper une coucfte : 
•POT Fin 

ERR •PPR<CTRL-L> 

•PPR vous n'avez pas de carte h 

—tor logs ou blen 
•PPR vous n 'eces pas passi par R 

—iEBOOT . SYSTEM 

•PPR votre fichier 'vide' n'a do 

—inc pas de date de modification 
•PPR ce proqramme n'est pas utillsable . 
TIN 
•NO 



■=Sa 
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Fichier COMMANDE 

•PND 

•PyR<CTRL-L> 
•NO 

•PLSNUat!i<U-=$C 

•PSX'$C 

•PSX'+lOO 

•PAS(X) =$D 

•LNUMERO 

'F/$C/$D/A 

■5= 

•PLSDATE=$A 

• PPR • Numero • de' document ■ : ,m $C 

•PPR- Data' • " ■ ■ -$A 

•PPR 

•m 



• J.FTCHCOMMAmF. 
•F/ (NVMERO) /$C/a 
•F/ (DATE) /SA/a 

NQ-FFR-Nom-du- fichier •de'savvegarde' ••••••• 

•PIN' ».* »»■•'* *'» .sarr.*; • .? igrtp • n i • Rspanp • : • • =$B 

•PCS/$B// 

•PGOttO 

•PPR 

•PPR • Nom'complet • riw riei.i r. f nat. a i res* ( return »>■• *§B) 

•PIN ■ • •; -40 

•PC$/$D// 

•PA5$s=$a 

•F/ (NOM) /$D/A 

•FlwAdresse ; • '=$A 

• F/fADKJ /$A/A 
•F/Ref/ 

• ? 

■ JJJI 

•SC. $B$CTCTSL-H><:CTP.L-H> 



Fichier 

IN1DATE.N 



•■NO 

• •PGO$C 

OO'PGOEPJt 

01 'pas- jail vi(2£=$t^ 

• •• pgnd 

02 • pas • fevt Lei^Sc 

• • ■ pgod 

03'pas r mars—$t: 
• • 'pgod 

04 w pas'svrll=$c 

• • • pgod 

05'pas-mai=$c 

».« • pgod 

06'pas w juln-$c 

• • • pgod 

07 'pas • julllet~$c 

% ■ -pgod 

O8'pas f aouz=$c 

• •• pgod 

OS •pas' sept embre=$c 
• ■ • pgod 

l&*pSS* oct obre=$c 

• * *pgod 

ll'pas-no vemore=$ c 

• • •pgod 

i d • pas •decembre=$c 
d'LDATK 

•F* — • + • *$B$C-9D* 

•07 
•S= 

•PDOch oix 

ERR'P?K<CTHL-l,> 

•PPR vans n'avez pas da 

-icarte horloge ou hien 
•PPR vou3 n 'ctcs pes passe 

-par REBOOT. SYSTEM 
•PPR votre fichier 'vids' «' 

-ia done pas ds date d 

— <s modification 



•FPU ce programme n 'est pas u 
-itilisable . 

•P1H 
• NO 

Fichier GLOSS AIRE 

<CTR T,- C> <CTR 7.- P>nOCU0 IX > 

Fichier VARIDATE.D 



•PAS11=$U 
•PAS03^$B 
•PAS1997=$D 
■NO 

•PDOINIDATE.D 



Me! mois dans $C 
Met jour dans $B 
Met ann£e dans $D 

Execute InidaleM 



Concernant les listings 

Dans les programmes WPL listes 
ici : 

les '•' symbolisent les espaces, 
les caracteres qui suivent le signe 
'— ' sont la suite de la ligne 
precedente, 
<ctrl-L> symbolise le caractere 
controle-L que Ton saisi dans 
Apple-Writer avec la 
sequence clavier : ctrl-V ctrl-L 
ctrl-V ; 

Idem pour <esc> a saisir ainsi : 
ctrl-V louche escape ctrl-V. 



Fichier CHOIX 



• <ESC><ESC> 
-PND 

OPTION' PPR<CTRL-L> 
•PPR 

• PPR 

•PPR •••••••'•••••!•• commands 

•PPR 

•PPR 2' 'lettre 

•PPR 

•PPR *3* •relance* 

•PPR 

•FPR •••••••• •■aEsc> m 'quitter 

•PPR 
•PPR 

•PIN' *•• »»• 

cfioisir • Line" opt io 
— .rt •J*3»3*;» —$B 

•PCS/?H/<K5C>/ 

■PGOQUIT 

•PSX?B 

•PCS/{X) /o/ 

•PGOOPTION 

■PSYO 

BOUCLE'PSY+1 
■PCS/(Y) /4/ 
•PGOOPTION 
-P5K 1 
•PGOBOUCLE 
•NO 

•PGO$B 

1 • PD OCOMMANDE 

2-PPR<ESC> Cholsir-1 'Oil 

—i w 3 m putiL • un "ei'jsdi 

•PPR 

-PIN - 

-.■ ■ ■ ■ taper* tine' touche* : 
•PGOOPTION 
3 •PDORELANCE 
QVIT'<ESC> 
•NO 



ProDOS 
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Fichier STARTUP.N 



Fichier FICHRELANCE 



•wo 

* <ESCXESC> 

'PND 

-PPRun-insLttnL - ! 

•SVTDP, 

■0 

•OA£ 

. 9 
•B 

' f ^ ■ - -- . . . . . > * Q A 

•D 

■W 

■NO 

•D 

■X 

'Ti 

•F"*=$D, 'NO, • IHUMERO, 'HH, -F<l? 

-,?<§c<, -o', -s= r •pnaiNiD 

-iATE.N* 

•n? 

■F!/!£'PA519! 
•O? 

•F'./!fPRS! 

•O? 

'B 

•F! •(•PAS! 
•O? 

•F* r *=$C, » 
■ CI? 

•F* r *=$B, * 
•Q? 

■F<$<$<A 

■SVARIDATE.N 

■O 

■ QEGLOSSAIRE 
-pdoVARIDATE.N 

Fichier 

VARIDATE.N 

•FAS11=$C 
*PAS03=$B 
■PASISBV^SD 
•MO 

•LNUMERO 
■HI1 

'F<??<$C< 
'O? 

•s= 

•PDOXtilDATE.N 

Fichier 

NUMERO 

411 



• 39 

,nKll40 

Paris, Je (PATE) RAPPEL (NUMERO) 



(APPEL) (PRENOM) (NOMI , (APR) , 



.W84 

(APPEL) , 



En date du (DATE), je vous al adresse ma facture n° (NUMERO) , 
( CONCERN ANT) . 

or a ce jovr,avcun regiement ne m'est parvenu. 



Je pense qv'il s'agit d'un oubli de votre part, et vous prie 

de bien vouloir m'adresser la somme de : (MONTANT) Fr par 

rout ffioyon . votra convor.sr,ce . 



Dans 1 'attente, 

Jc vous pric d'aqrccr, (APPEL), mcs salutations distir.gvccs . 

Signature 

,mpO 
.mgO 
.FF 



Fichier FICHCOMMANDE 

.JG 
,md90 

Paris, le (DATE) COMMANDE N° (NUMERO J 



.Mdl40 

(NOMi , (ADR) . 
.Md9D 

.MC10 

SCOMMANDES 

Rsf Designation Quantite Unite 



.MG4 

■ ItlnnLiLe banuaize . ... : code C.--.L. c/uic/ieL uumpLn (Sid RIB 
Ranquft XX xxxxxx xxx x xxxxxxxxxxx xxxx 

Repertoire rfes metiers : xxxxxxxxx 
Sirene : xxxxxxxxxxxxx 

.MGO 
.FT 
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Nouvcllc ctape des recherchcs de Pom's dans le domaine 
de la communication, voici un programme dc conversion 
Image HGR/ecran semi-graphique Minitel, cc qui — 
compte tenu des contraintes Videotex (2 couleurs 
seulement par groupe de 6 paves) — represente une 
recherche remarquable. 

Cette nouvelle etape, apres le detecteur de sonnerie du 
numero 32 represente un pas de plus vers une prochaine 
application conversationnelle entre votre ordinateur et le 
Minitel de vos correspondants : 1'Apple // serveur. . . 



S'abonner 

Vous cherchiez une bonne 
raison de vous abonner ? 
en void quelques-unes : 

% six numero s pour le prix 
de cinq ; 

¥ l'assuranceden'en rater 
aucun ; 

© une assistance tech- 
nique prioritaire, par 
telephone, par Calva- 
Com ; 

s Pom's dans votre botte 
aux lettres avant raise 
en kiosque ; 

•fries petites annonces 
gratuites ; 

$ un tirage au sort a 
compter du 30 no- 
vembre pour rcccvoir 
logiciels dc valeur , docu- 
mcntations techni- 
ques... 




andis que nous 
bene"ficions de su- 
perbes images en 
haute resolution sur 
nos Apple //, le 
Minitel conncctc* dc fraichc date 
continue k faire triste mine avec 
son tcxtc et ses mcdiocrcs 
images. II suffit pourtant d'un 
programme de conversion pour 
profiter de ses 8 nuances de gris 
et de ses mosaiques semi- 
graphiques. 

Quoi de mieux pour surprendre 
un utilisateur qu'une Lady 
numerisee, ou votre derniere 
ceuvre graphique rdalisee souris a 
la main ? 



Methode 

Mais ces images HGR ont une 
definition de 280 x 192 points, 
tandis que notre petit Minitel ne 
pent en afficher que 80 x 72, II y 
aura certes perte importante de 
definition, mais vous serez 
surpris par ce done ces 1440 
points sont capables apres etre 
remplis par la routine 
HGR.MNTL. 

Ce programme est concu pour 
pouvoir : 



- converter les images HGR en 
mosaiques Minitel a plusieurs 
niveaux de gris, plus ou moins 
contrastes, ou en noir et blanc ; 

- sauvcr le rcsultat sur disque ; 

- ie recuperer ulterieuremenL 

La conversion se deroule en deux 
phases : 

La premiere est 6crite en 
langage-machine et analyse 
1'image HGR pour donner le 
nombre de points par zones de 3 
x 3 nu de 4 x 3 points, stocker 
ces chi fixes, puis indiquer de 
combien de points est const it nee 
l'image entiere. 




Chaque petite zone formera un 
carre sur l'ecran du Minitel. Or, 
comme l'indique la page 1 du 
Pom's n° 29, chaque caractere 
Minitel contient 6 de ces carats. 

Ainsi, les 280 colonnes HGR 
deviendront SO colonnes Minitel, 
d'altemativement 3 puis 4 points 
HGR de large. Ce compte curieux 
est necessaire a cause du stockage 
meme des points HGR en 
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m6moire : 7 points par octet, et 40 
octets par ligne que I'on doit 
mettre en relation avec les 40 
caracteres par ligne du Minitel. 

Quant aux lignes, nous 
n'utiliserons que 192 lignes HGR 
(3 lignes par carre mosaique), soil 
64 lignes mosaique, ou encore 21 
lignes de caracteres Minitel. 

Done hurizontalement, 

- 1 ligne Minitel = 

40 caracteres Minitel 

- 1 earactere Minitel = 

2 colonnes mosaiques 

- 1 eolonne mosaique = 

3 ou 4 colonnes HGR 

et verticalement, 

- 1 eolonne Minitel = 
24 caracteres Minitel 

- 1 earactere Minitel = 
3 lignes mosaiques 

- 1 ligne mosaique = 
3 lignes HGR 

La scconde phase est £crite en 
Applesoft car elle comporte de 
nombreux calculs. II faut cn effet, 
a partir de la density par carr6 
mosaique. en de*duire les deux 
couleurs que le caract&re Minitel 
prenura. 

Un earactere peut en effet prendre 
deux couleurs ; une pour le 
earactere lui-meme. 1' autre pour le 
fond. Pour des mosaiques, cela 
signifie que certains des six carres 
du earactere auront 1'une ou 
l'autre couleur. 

C'est la que le probleme majeur 
intervient : comment calculer ces 
deux couleurs parmi les huit 
disponibles pour que 1'image 
reste coherente d'un earactere a 
Tautre ? 

La solution passe par un calcul 
d'dcart'type des six carres d'un 
earactere : 



ET = 




2> 



(Ix)' 



n 



n- 1 



On calcule aussi la den site 
moyenne MC de cbaque carre de 
I'image par la division du nombre 
de points d'un carre sur lcur 
nombre maximum (7 x 9). 



Cela nous pcrmet d'obtenir les 
deux couleurs du earactere: 

klere: MC-ET/2 

la2eme: MC + ET/2 

Enfin, pour savoir si un carre 
prendra Tune ou l'autre couleur, 
on compare la densite moyenne 
du carre MC a la densite moyenne 
de 1'image enticrc M. 

La couleur est donnee par les 
sequences suivantes : 

$1B $4x : couleur du earactere, 
$1B $5x : couleur du fond. 

x prend les valeurs 

: noir 
1 : rouge 
2: vert 
3 ; jaune 
4 : bleu 
5 : magenta 
6 : cyan 
7 : blanc 

En tons de gris, nous avons du 
plus clair au plus roncd : 7 3 6 2 5 
14 0. 

Dernier raffincment, il est 
possible de changer le contrasts 
normal de I'image (1), pour 
obtenir des effets sp£ciaux. 
Entrez done 10 ou 30. . . 
On remarque avec l'habitudc que 
certaines images passent mal en 
niveaux de gris. On peut alors les 
passer en monochrome noir et 
blanc, ce qui les avantage 
generaleiiienL 

Comment faire ? 

Trois elements sont necessaires : 
un Minitel, 

un cable de liaison a l'ordinateur, 
un port serie. 

Le Minitel 

S'il est retournable (bi-standard) 
vos teuvres pourront 6tre 
transmiscs a un correspondant 
equipe egalement d'un Minitel. 

Le cable 

La revue en tient a votre 
disposition si vous n'en disposez 
pas. 

Le port serie 

Sur un He ou un JIGS, il est 
integre a la machine. Sur un ][+ 



ou un He, la carte SuperSerie 
Apple duil cue inseree dans le slot 
2 (si elle est dans un autre slot, 
modifiez la ligne 1100^ du 
programme Basic), configure* de 
la facon suivante : 

sw1 



Q H H a a H Q 



modem 




terminal 



sw2 



Sur votre Hgs, a l'aide du tableau 
de bord, mettre toutes les options 
par defaut du port modem, sauf : 

Data/Stop Bits : 7/1 
Parity ; Even 
DCD Handshake ; No 
DSR/DTR Handshake ; No 

Sur votre lie, supprimer le 
REM de la ligne 4. 

Le programme 

Pour utiliser ce programme de 
conversion il faut, si vous ne 
disposez pas de la disquette 
d'accompagnement, saisir ct 
sauvegardcr les programmes 
Basic HGR.MNTL et 
COMFACTEUR ainsi que la 
routine bin aire DENSITE. 

Apres l'ordre : 

RUN HGR.MNTL 

le menu vous propose la 
conversion d'une image HGR qui 
consists en sa transformation en 
un fichier TEXT a envoyer au 
Minitel. Dans cette option, apres 
affichage du catalogue, indiquez 
le nom de votre image HGR 
(veillez a ce que son nom 
n'excede pas 8 caracteres, even- 
tuellement renommez-la avant). 
Apres transformation, un fichier 
TEXT a ete cree sur disque : 

nom_de_l ' image. MNTL 

Ce fichier peut deja etre transmis 
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an Minirel a Taide de 1' option 
ricupiration. 

Le fi drier qui est compose" de 
4206 caracteres peut etre reduit a 
l'aide du programme COMPAC- 
TEUR qui a pour objct la 
suppression de codes de 
changement de couleurs inutiles : 
a n'executer que lorsque l'image 
trarisfurmee a le contraste voulu. 

Remarques 

Si votre image HGR s'appelle : 



LADrparexemple, 

le fichier de texte cree par 
Ilgr.Mntl s'appelle : 

LADY.MNTL 

et, apres compactage par le 
programme Compacteur : 

LADYC.MNTL 

Pour envoyer votre belle image a 
votre Minitel depuis un 
programme Basic, s'inspircr des 
lignes 63002 a 63120 du 
programme Ngr.Mn(l. 



Pour I'envoyer a un 
correspondant qui possede un 
Minitel, s'inspirer du programme 
ENVOIIM. Le seul travail dudit 
correspondant sera de connecter 
son Minitel lorsqu'il enlendra la 
porteuse. 

Ilgr.Mntl fonctionne aussi bien 
sous Pro DOS que sous DOS 3.3. 
La routine en Assembleur a etc 
ecrite avec Merlin -Pro. 

a 



Programme HGR.MNTL 

Pour ¥ Apple, He, voir article. 

Pour enfacilUer le compiage, certains espaces om ete 
remplaces par des 'puces' ■ 

Pour V Apple He, supprimer le REM de la ligne 4. 

REM 

Programme de transformation 
d ' une image HGR en mosaique 
Minitel 

4 REM PRINT CHR$ (4) "PR£2" : PRINT CHR$ 

(1) "1P"CHR$(1) "3P"CHR$ (1) "8B 

5 PRINT CHR$ (4) "PR£3 

6 PRINT 

10 TEXT : HOME : INVERSE ; PRINT " Prog 
ramme de conversion d' une image HGR en 
Minitel / Patrice Neveu (87) 
NORMAL 
20 POKE 34,2 
30 VTAB 5 

40 POKE 768,104: POKE 759,168: POKE 770, 
104: POKE 7 VI, 166: POKE 772,223: POKE 
773, 154: POKE 774, 72: POKE 775,152: PO 
KE 776, 72: POKE 777, 96 

1000 HI MEM: 38400 

1005 ONERR GOTO 63200 

1010 PRTNT CHR$ (4) "BLOADDENSITE 

1015 POKE 216, 

1020 LOMEM: 21760: REM Four proteger 1 

a page 1 Haute Resolution 
1030 HI MEM: 36864: REM et la routine d 

es variables et fichiers , 
1040 RESTORE : DIM ER$ (17) z FOR T = 1 TO 

8: REAP R$: NEXT I 
1050 FOR 1 = 1 TO 16: READ ER$:ER$ (I) = 

ERS: NEXT I 
1100 SL = 2 
10000 REM 

Choix des diffGrentes 
options de tra.ns£&rt 
10QTQ VTAB 5 

10020 PRINT "Voulez-vous (T) raiter une i 



mage HGR » 

*'*•** ■ (R) &cup£rer 

une image Minitel 

ex. vers 1 'Applesoft 
10025 PRINT " (S)ortir vers u 

n redemarrage ProDOS "/ ; GET R$ 
10030 PRINT B$; IF R$ - "R " THEN 63000 
10033 IF R$ = "Q" THEN TEXT : HOME : EN 

D 

10036 IF R$ - "S" THEN PRINT CHR$ (4) " 
BYE" 

10040 If R? < > "T" THEN 10010 
10043 ONERR GOTO 63300 
10045 PR TNT CHR$ (4) "CATALOG" : PRINT 
10050 input "Quelle image voulez-vous tr 
aifcer ? 

10060 HGR : PRINT CRR$ (4) "RT,OAD"I$" r A$ 
2000 



Programme ENVOIIM 

100 ESC$ - CHR$ (27) ;VR01$ = ESC$ I CHR$ 
(57) :DEC$ = CHR$ (103) ;CNEX$ = CHR$ 

w ,..,...,........ria4i,;«EJ2^..- CHR$ (Mlj :D? = CHR$ 

(4) . 

110 IMS » "LADYC.MNTL ....... 

' WO PRINT Df "PRf.2 : , ■ .. 

125 . PR INT CHR f (2) "2 ) ■; f 1: & '• 
130 PRINT PRGl$RETl$PR01$CmX£ 
140 FOR I - 1 TO 6000: NEXT 

WW " PRlW^::£>$:'^OPEN"iM$ / ;/ : |S ; |l 

ito pRmr ds"£ead"im$ 

170 OX ERR GOTO, 200 ' 

18 GET R$ : PRINT R$f '• § m 

190 GOTO 180 

200 print ■": ^m'Mr?o$.hc^asEf , iM$ ■ 

2io prtvt proi$dec$ 

220 PRINT J$"l'R£3 ' 

$ur 1 'Apple y/c, ' ajouter 

122 PRINT CHR$ ( 1 ; "1D"CBR$ (I) "3P"CKR$ (1) " 
8B 
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10070 TEXT 

10080 PRINT "Voulez-vous de la couleur ? 
";: GET R$: PRINT R$ ; IF R$ - "N" THE 

N MN<£ = 1: GOTO 40000 
10090 INPUT "Quel contraste ? *;COi 
40000 REM lere phase en Langaye-Machine 

Bt pr&pare la 26rne en Basic 
40010 PRINT CHR? (4) "STORE DATA. MNTL 
40020 CLEAR 
40030 CALL 38144 
40040 CLEAR 

40050 PRINT CHRS (4) "RESTORE DATA. MNTL 
40060 T = PEEK (24) + PF.FK (25) * 256 
40070 PRINT T / 5120 :M% = INT (T / 5120 
) 

40080 PRINT CHR$ <4)"PR£"SL 

40090 PRINT CHR$ (12): PRINT CHRS (14) 

40100 DIM DT% (840,2) 

50000 REM 

Phase Applesoft de deter- 
mination de couleurs et 
points 

50010 FUR 1=0 TO 62 STEP 3: FOR X = 

TO 79 STEP 2 
50020 AD% = 16384 + X 

50030 C%(1) » PEEK (AL>% + Y * 80):C%(2) 
- PEEK (AD% I 1 I Y * 80):C%<3) = PE 
EK (AD% + (Y + 1) * 80):C%(4) = PEEK" 
fAD-S + 1 + (Y + 1) * 80):C%(5) = PEEK 
(ADS + (Y + 2) * 80):C%(6) = PEEK (A 
D% + 1 + (Y + 2) * 80) 

50040 IF MN% THEN CF% = 7:CL% = 0: GOTO 
50130 

50050 S = C%(1) + C%(2) + C%(3) + C%(4) + 

C% (5) f C%(6) 
50060 ET = ((C%(1) * 2 + C%(2) * 2 + C% (3 

) " 2 + C%(4) " 2 + C%(5) * 2 + C% (6) 

* 2) - (S * 2) / 6) / 5 
50070 ET = ET * COS 

50080 CL% = S / 6 - ET / 2:CF% = 5 / 6 + 
ET / 2 

50090 IE CL% > 7 THEN CL% = 7: GOTO 5011 


50100 IF CL% < THEN CL% - 
50110 IF CF% > 7 THEN CF% = 7: GOTO 5013 


50120 IF CF% < THEN CFi - 

50130 C% = 32 + (C%(1) > M%) f Z * <C% (2) 

> M%) + 4 * (C% (3) > M%) + 8 * (C% (4) 

> M%) + 16 * (C%(5) > M%) + 64 * (C%( 
6) > M%) 

5014 RESTORE : FOR 1=0 TO CF% 1 READ F 

%: NEXT I:CF% = F* 
50150 RESTORE : FOR I = TO CL%: READ L 

%: NEXT I:CL% = L% 
501.60 PRINT CHR$ (27} + CHR$ (64 + CF% 

) + CHRS (27) i CHR? (80 + CL%) ; CHR 

$ (C%); 

50170 DTi(O%,0) = CF%:DT% (02, 1) = CL%:DT% 



(0%,2) m C2:0^ = 0* + 1 
50180 NEXT X, Y 
50190 PRINT CUR$ (15) 
50200 PRINT CHR$ (4) "PRf3 
50210 DATA 0,4,1,5,2,6,3,7 
62000 REM 

Sauvergarde de la mosaiqve 

sur Disque 
62010 NORMAL : TEXT : HOME 

62020 PRINT "Voulez-vous sauver cette im 
age Minitel sul disque ? "/ : GET R$ 




62030 
62040 
62050 
62060 
6207V 
62080 
62090 



IF R$ = "N" 
IF RS < > ' 
PRINT 
PRINT 
PRINT 
FOR I 
PR TNT 



THEN RUN 
0" THEN 62010 
CHR$ (4) "OPEN" I$" .MNTL 
CHR$ (4) "WRITE" I$" .MNTL 
CHRS (12) I PRINT CHR? (14) 

TO 0% - 1 
CHR$ (27) + CHR$ (64 f DT% 
(1,0)) t CHR$ (27) + CHRS (80 + DT% ( 
1,1)) f CHR$ (DT$(I,2)); 
62 WO NEXT T 

PRINT CHRS (15) 
PRINT CHR$ (4) "CLOSE 



62110 
62120 
62130 
63000 



RUN 
REM 



A££ichag& d'uue fflOSaiqua 
sauvee sur Disque 



63002 


ONERR 




63300 


63004 


PRINT 


CHR$ 


(4) "CATALOG 


63010 


INPUT 


"Quelle image voulez-vous 


cuperer ? 


";I$ 




63020 


PRINT 


CHRS 


(4) "UNLOCK" IS" .MNTL 


63040 


PRINT 


CHR$ 


(4) "PR£"Sh 


63050 


PRINT 


CHRS 


(4) "OPEN" I $ " . MNTL 


63060 


PRINT 


CHR$ 


(4) "READ" T$". MNTL 


63070 


ONERR 


GOTO 


63090 


63080 


GET R$ 


: PRINT R$/ : GOTO 63080 


63090 


PRINT 


CHRS 


(4) "CLOSE 


63100 


NORMAL 






6311 


PRINT 


CHR$ 


(4) "PR£3 


63120 


POKE 21 6, 




63130 


RUN 






63200 


REM 







Erreur, il zi'y a plus le 
disque d' origins 
63210 HOME : PRINT : PRINT "Vous devriez 
remettre le disque de Conversion": PR 
INT 

63220 GET R$ 
63230 POKE 216, 
63240 RUN 
63300 REM 

Erreur de disque, on 

recommence 1 'operation 

63302 POKE 216, 

63303 TEXT 
63305 CALL 768 

63310 EP. m PEEK (222): HOME : TEXT 
63320 RL = PEEK (218) + PEEK (219) * 25 
6 
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63360 PRINT "C'ER") "ER$ (ER) " liqne "RL 
63370 GET R$ 
63390 RUN 

63399 REM 

Duiui&es contenant les mes- 
sages d 'erreur du DOS plus 
un pour l 'Applesoft . 

63400 DATA "Langage npn dispon±ble" f "P 
arametre hors 7 imite", "Rien n 'est conn 
ecte" , "Disgust re protegee a 1'Scritu 
re", "Fin des donnees", "Fichicr introuv 
ahl&", "Erreur de paxametre", "Erreur d' 
Entree - Sortie", "Disque plein" 

63405 DATA "Fichicr vcrrouille" 
63410 DATA "Pas de memoire tampon dispo 
nible", "Erreur quant au type de fichie 
r", "Programme trop important ", "Catte c 
onwnande ne peut etre passee en mode di 
rect" 

63120 DATA "Erreur de syntaxe", "Erreur 
dans 1 'Applesoft " 



Programme 
COMPACTEUR 

5 HOME 

10 DS = CHR$ (4): DIM CAR (4205} , ST (4) , C < 

4} :ES$ = CHR$ (27) :ES = 27 
20 INPUT "Fxchler a completer 7 ";F$:F1$ 
= F$ + "C" + " .MNTL" :t S = F$ + ".MNTL 



23 PRINT "Chargement du tichier "F$ 

30 PRINT D$"OPEN"F$; PRINT D$ "READ "F$ : F 
OR I = TO 4205: GET CAR$:CAR(I) = A 
$C (CARS) : NEXT : PRINT D$"CLOSE 

80 PRINT "Compact age en oours 

90 PRTNT D$"0PEN"F1$: PRINT D$"?!RITE"F1$ 

100 PTR = - 1 

110 PTR = PTR f Xi IF PTR > 42 05 THEN 400 
120 C(l) = CAR {PTR}: IF C (1) < > ES THEN 

PRINT CHRS (C(l));: GOTO 110 
130 PTR = PTR + 1 

140 C(2) = CAR (PTR) : IF C(2) < 64 OR C(2) 

> 71 THEN PRINT ES$ CHR$ (C(2));: GO 
TO 110 

150 PTR = PTR + 1 

160 C{3) - CAR (PTR) : IF C(3) < > ES THEN 
PRINT ESS CHRS (C(2)) CHRS (C(3))f! 
GOTO 110 
170 PTR = PTR + J 

180 C(4) = CAR(PTR): IF C(4) < 80 OR C<4} 

> 87 THEN PRINT ESS CHR$ (C(2))ES$ C 
HR$ (C(4));: GOTO 110 

190 OK = 1: FOR 1-2 TO 4: Iff ST (I) < > 

C(I) THEN OK - 
200 NEXT : IF OK THEN GOSUB 1000: GOTO 
110 

210 FOR I - 1 TO 4: PRINT CHRS (C(I));: 

NEXT : GOSUB 1000: GOTO 110 
400 PRINT DS"CLOSE" : PRINT "Fichier "Fl$ 

" cree": PRINT "Termine.": END 
1000 FOR I = 1 TO 4:ST(I) = C(I): NEXT : 
RETURN 



Raccourcir WPL 

Pour comprimcr un programme WPL trop long (la limite se 
situe a 2048 caracttres), toutes les commandes qui 
s'executehl sans "return" peuvent etre accollees. 
Le programme STARTUP.N dc la page 10 pourrait ainsi 
s'ecrire commc d-dessous et passer de 288 caracteres a 244. 

<&$c asc>PMD;: 
PPRuri instant ! 

5V1DE- 

o Wm&... 

OA£ 

?BF* -.— 0* 

?Dmo 

DXDF* \*=$D, NO, 
0?F!/!£ PA31.S! 
0?F'./l£ PAS' 
0?BF< ! PAS'! 
0?F*, *=SC, * 
Q?F* r *=$B, * 
0?F<§<S<A 
SVARIDATE.N 
O 

PDOVARIDATE Ztf 



LNUMERO, HE, F<? ?<§C<, 0?, S-, PD01N1UATE.N* 



Recapitulation DENSITE 

Apres avoir saisi cette recapitulation 
sous tnonitcur, vvus la sauvegarderei par . 
BSAVE DENSITE, A$950U, L181 



9500 


A9 


40 


8D 


5A 


95 


A 9 


00 


3; 


95(76 


07 


85 


06 


8D 


59 


3D 


S5 


IB 


9510 


85 


19 


A9 


00 


85 


09 


A9 


0- 


9518 


3D 


B4 


95 


A5 


07 


A2 


00 


AO 


9520 


00 


20 


11 


F4 


A5 


OS 


4A 


AS 


9529; 81 


26 


90 


OS 


4A 


4A 


4A 


29 


9530 


or 


4 'J 


36 


95 


29 


07 


A3 


B9 


95 


A 4 


95 


! R 


65 


09 


85 


09 


F.6 


9540 


07 


CE 


B4 


35 


DO 


D5 


A5 


06 


9543 


4A 


BO 


08 


A4 


09 


B9 


80 


95 


9550 


4C 


50 


95 


A4 


09 


E9 


37 


95 


9558 


8D 


00 


40 


EE 


59 


95 


DO 


03 


95_60 


EE 


5ft 


95 


AS 


09 


IS 


65 




9568:85 


IB 


90 


02 


E6 


19 


A4 


07 


95 70 i 88 


88 


88 


84 


07 


E6 


06 


A5 


95 /a 


Ob 


C9 


50 


90 


95 


A9 


00 


85 


95 RO 


06 


AA 


07 


C8 


C8 


CS 


84 


07 


95 S3 


CO 


BF 


90 


86 


€Q 


00 


01 


01 


9590 


02 


03 


04 


05 


06 


06 


07 


00 


S598 


01 


01 


02 


02 


03 


04 


04 


05 


S5A0 


05 


06 


06 


07 


00 


01 


01 


02 


95.18 -.01 


02 


02 


03 


01 


02 


02 


03 


95B0: 


03 


03 


04 


00 
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Source DENSITE.S 

Assembleur Merlin-Pro 



1ST OFF 
ORG £9503 

+ *■* + **************************************-* 

* Ob jit c&niral : * 
* 

" stockaqe tie In coneejittation des paints * 

* d'ujs sJifieroe de caractere en m^molre. * 
. * 

*.M********^*r*** ********************** ****** 

********* ****************************** 

* Lot do pel nr*t fair .1x1 /mints Ipalrl * 

* Jjr-* (impair) » 
» I 

* Done 21 Hones Mlnltel sercnC utilities ' 
********************************* ******** 




PTSG 

JLODPTS 



* Labels 








XCOORD 




(TO 5 


Coordonr4es du hi i itudier, 0-79 


YCOORD 




$07 


Coordonnees du lot k &udier, 0-131 


NBRPTS 




SO 9 


Nomine de points dans te lot 


PTSTOT 




S18 




H3AS 




$26 


Adrgsse sortie de HPOSN 


IIIMEM 




P73 


Protection du programing txe am variables 


HPOSN 




SF411 


Trowe fadresse <fun groupe de points 


* Boucle 


des 


lignes et des colonnes MGR 




LDA 


£S40 


les demise's de points seront mises 






ST0CXDENS*2,- 


i parlir tk WOO 




lda 


IV 






STA 


YCOORD 


On commence en haul a gauche de ('image 




STA 


XCOOW 






STR 


STOCKHENS+1 






STA 


PTSTOT ; 


Mise a zero du nombre de poirns constiwant 




STR 


PTSTOT*! ; 


Fmage et utilise (fens is moyenne gtofaale. 


* Prnrjramme de calcul de concent rat Jon d'un lot de points 


CALCLOTS 










LDA 


to 


Mise & iero du nombte de points dim lot. 




ST A 


NBRPTS 






LDA 


€3 






STA 


NBRLGNS ; 


Nernhre de ligiws dans ie lot 


LITOCTET 










LDA 


YCOORD 


On va se posilkmner an debut de la ligne 




LUX 


£0 


dent te numero est dans YCOORD. 




LDY 


£0 






JSR 


HPOSN 


Vi chercher son adressa 




IDA 


XCOORD 






LSR 




Colonne 12 = numero dociel 




TAX 








LDA 


{RBAS) , r 


Pmndrodet sur la bonne ligne 




BCC 


PTSG / 


Pour savcir si en est dans fs colonne * 




LSR 




gauche ou de droite dim caractwe WiriM 




LSR 




Dans le cas de la partie gauche, decate a 




LSR 




droite les 4 sits :n:s ressaiis. 




AND 


£100001111 ; 


El on les isote 



STOCKED 



HOC 



JMf 


AUDPTS 




AND 


LiOOOOOlll 


t On sole les 3 points inierBssants de droite 


TAT 




,- Tramlorme la vale ut en index 


LDA 


NBRPRVAL, Y 


; Prend te nombo de bits selon la vaieur 


CLC 






ADC 


NBRPTS 


; Addilionne ffa uuiHHiibie de points dv lot 


STA 


NBRPTS 




INC 


YCOORD 


; Passe J la prochsino ligne 1 ICR 


DEC 


NSRLf.NS 


; Ca lait une ligne de mews a taire 




LITOCTET 


, sur les 3 que comple J/S de catactbw WWTi 


huit 


concent rat ions possibles 


LDA 


XCOORD 


; A nouveau ifaut lairs la disiitKlioii 


LSR 




; grim ia parlia gauche et k partis droie 


BCS 


PTS12 


; defocimoensiditS, 


LDY 


NBRPTS 


; Dans tin cas on prend une table canlenant 


LDA 


COULSOR, Y 


; 10 concentrations possibles (0 a 3) 


JMP 


STOCKDEtiS 




LDY 


NBRPTS 


; Dans lautie cas on a f 3 possibilit&s 


LDA 


C0ULEUR2, Y 


; iOiili 


S STA 


S4000 


; On sauw le nombre de points dans une table 


INC 


stockdens + 1 ; Puis on passe a h piochaine position.,. 


BNS 


STOCKED 




INC 


STOCKDENS+2 


LDA 


NBRPTS 


• Pour avoir le nombte total de points 


CLC 




; constituent I'iritage, on repute ceux-la... 


ADC 


PTSTOT 




STR 


PTSTOT 




BCC 


NOC 




INC 


PTSTOT-tl 




ldy 


YCOORD 


; Of) tail cela ear & ehaquo tM 6me de 


DEY 




; caractere, len'de ligne a ugmerae dg 3 


DEY 




Or, on ne doit passer out 3 lignes HGR 


DEY 




; suivantes qu'eri bout da ligne, clssf a 


STY 


YCOORD 


; dire... 


INC 


XCOORD 




JJ)A 


XCOORD 




CMF 


too 


; L orsque XCOORD est a SO. (40x2) 


BCC 


CALCLOTS 




LDA 


£0 


j Afors settlement on peut sauler fas 3 lignes 


STA 


XCOORD 


; que I'onvientde trailer el wenr en 


LDY 


YCOORD 


; debut de ligne. 


INY 






1NY 






INY 






stt 


YCOORD 




cpr 


£191 


; La ligne HGR n°t9 1 esl la dvriiieie 


BCC 


CALCLOTS 




RTS 




; Apres laqoc-tle on passa a ia phase n "2 







* On peut changer ces deux premieres isflies qui indlquent 

* que pour un umbrE X de points dans le 1/6 de caractere 

* y/j 4 Ze niveau gri3 Y. 

CQULEUR HEX 000101020304050S0607 
COOLSURZ HEX 00010102Q2C30'040S05nRnSai 

* Cette taible indtque que pour la valeur X, Y bits sont & 1 
NBXPRVhL HEX 0001010201020203010202030203030' 

NBRLGNS HEX 00 
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oici un petit 
programme qui 
vous permet d'uti- 
liser les fonctions 
graphiques Super 
haute resolution 
de l' Apple IIgs. 



II vous montrera les 
principes de base pour 
exploiter les possibility 
des "outils" a partir du 
Basic Applesoft. 

Les possibility 
graphiques du IIgs 

L' Apple IIGS, grace a sa ROM de 
1 28Ko, presente de nombreuses 
possibilites qui ne soni pas 
exploitable? directement depuis 
I' Applesoft. Dans cet article, nous 
nous interessons surtout aux 
outils graphiques. 

L' Apple IIGS est dote, en plus 
des tiaditionnels modes graphi- 
ques de 1' Apple //, du mode 
Super-Hi-Res. Ce dernier est gere" 
par QuickDraw II, il vous donne 
la possibilit6 de controler les 
rdsolutions suivantes : 

• 320x200 ou 

• 640x200 en 16 ou 4 eouleurs 
{en standard) parmi une palette 
de 4096. 

QuickDraw II sait gerer les 
fonctions de base telles : 

• les lignes, 

• les rectangles, 

• le texte, 

mais egalement les manipulations 
de l'environnement graphique 
comme : 

• la gestion des coordonnees, 

• la gestion des regions 
visibles... 



Possibilites de 
mise en ceuvre 

Pour utiliser les outils du GS, 
vous disposez de plusieurs 
moyens : 

- un langage evolue comme 
Pascal ou C, 

- l'assembleur sous moniteur 
(qui fonctionne fort bien) ou 
APW (Apple Programmer 
Workshop). 

Ici, nous allons utiliser 
l'assembleur pour d6fmir une 
interface permettant au Basic 
d'acceder aux fonctions 
graphiques. II faut savoir 
e"galement que les outils ne sont 
pas independants. Dans le cas ciui 
nous interesse, pour fairc 
fnnctionner Quickdraw II, iJ faut 
fgalement installer Locator, 
Memory (qui sont necessaires 
pour le fonctionnement du 
systeme). Mais heureusement le 
Basic.system s*installe deja avec 
ces derniers. .. 

Le fonctionnemem de certains des 
outils du systeme necessite 
parfois quelques espaces 
m^moires reservees, dans le cas 
de QuickDraw II vl.I, il s'agit de 
3 pages de 256 octets dans 1c 
premier hank, de memoire (bank 

00) . 

Les appels aux fonctions des 
outils doivent se faire en mode 
natif pur (e'est-a-dire les 
drapeaux du registre d'etat du 
65816 sont : e=0, m=0, x=0). 

Maintenant nous pouvons 
commencer a ecrire notre petit 
programme qui permet : 

1) Installation de QuickDraw II ; 

2) sa deactivation, necessaire 



pour libeVer les m^moires et 
assurer la coherence du 
systeme ; 
3) l'appel de certaines fonctions 
graphiques. 

Appels des 
fonctions des outils 

Les appels des fonctions se font a 
partir du point d'entree $E10000 
(adresse du banc de memoire 
$E1) de la fatten suivante : 

- mettre dans X le numdro de la 
fonction souhaite'e puis, 

- fatreJSL$E 10000. 

Souvent, les parametres sont 
passes par la pile ; par exemple, 
pour posilionner le curseur, nous 
empilons sa position horizontale, 
sa position verticale, puis nous 
faisuns : 

LDX £&„ 

JSL $E10000 
En assembleur (APW) il existe 
une bibliotheque de macros qui 
permet de faire des appels de 
fonctions des ourils par leur nom : 

_MovbTo, MMStartup, . . . 

Description du 
programme 

Vous trouverez ici le programme 
source ecru sous APW avec les 
directives necessaires pour son 
assemblage. 

Quelques explications concernant 
deux macros usuelles : 

pMshwcrd... empile un mot 
(e'est-a-dire 16bits). Son 
equivalent : lda... pha 
pushlong... empile un mot 
long (32biis). II est 
equivalent a deux push word 
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Toutes les macros commencant 
par le suuligne' "_" sont des 
appels a des fonctions des outils, 
en g6n£ral, leur equivalent est : 

LDX £$... } fl* de fonctlon 
JSL $E1000Q 

Le programme 
binaire 

Le programme en assembleui se 
logera en $800. Les programmes 
Basic de ce fait commencerom en 
$1000. 

De $800 a $AFF : espace reserve 
pour initialiser Quickdraw. 

A. partir de $B00 : les points 
d'entrees des fonctions gra- 
phiques : ils vous facilitent les 
appels. A la suite de ces points 
d'entr6es nous laisserons la place 
pour passer des parametres. 

Ici, nous avons adopte le passage 
des parametres par des Pokes et 
les appels par des Calls pour 2 
raisons : 

- pour ceux qui voulaient utiliser 
QD.BIN en assembleur, la 
manicre de les appeler reste 
identique ; 

- il se peut que vous ne vouliez 
pas changer toutes les valeurs 
d'une fonction (exemple : vous 
voulez faire un trait horizontal, 
il sufnt de ne changer que le 
parametrc H). 

Le programme de demonstration 
QD. SAMPLE devrait eclairer les 
choses. 

Concernant les listings 

QD.SAMPLE : programme en 
Applesoft qui donne un 
exeniple d'utilisation. 

Pour ceux qui possedent APW il 
faut taper : 

- MAIN : programme (en EXE) 

- QD.SRC : source en assem- 
bleur APW ten ASM65816) 

puis lancer MAIN ; vous 
obtiendrez QD.BIN 1'interface 
binaire necessaire. 

Pour ceux qui ne possedent pas 
de APW vous devez tapez 
directement la recapitulation. 



Comment utiliser 
QD.BASTC ? 

Vous etes arrives au 
Basic.System en ayant boote sur 
Pro DOS 16 puis MouseDesk ou 
Selecteur, et sur votre disque 
vous avez QD.BIN. Pour 
disposer des fonctions 
graphiques, vous devrez vous 
inspirer du programme de 
demonstration QD.SAMPLE. 

Pour charger QD.BIN ei lui 
r 6 server la place, les Iignes 9 a 20 
relogent le Basic : 

ligne 9 : est-on relog6 ? 

ligne 10 : fixe la nouvelle adresse 

de chargement du programme 

Basic. 

ligne 15 ; charge QD.BIN. 
ligne 20 : recharge le programme 

Basic, mais a la bonne 

adresse. 

II vous faut alors ddfinir une 
variable, QD par exemple, valant 
2816 et les fonctions vous sont 
alors accessibles alnsi : 

Initialisation 

- CALL QD 

Deactivation 

- CALL QD+3 

Positionnemcnt 

AT{H,V) 

- Poker en QD+70 et QD+80 la 
position verticale (de a 200) 

- Poker en G+68 et QD+69 la 
position horizontal© (de a 320), 
poids faible, poids fort 

- CALL QD+6 

Impression de chaines 

PRINT (T$) 

- Poker en QD+72 la longueur de la 
chaine 

• Poker la chaine a partir de 
QD+73 (maximum 127 carac- 
teres) 

- CALL QD+9 

Mode d'imprcssion 

graphique 

SetPenMode (C) 



C vaut de a 3 ou de $8000 a 
$8003. 

- Poker C en QDi50 et QD+51 
(faible, fort) 

- CALL QD+12 

Les valeurs de C sont ies 
suivantes : 

$0 COPY : la source ecrase la 

destination 
$1 OR : la source s'ajoute a la 

destination 
$2 XOR : le Ou Exclusif entre la 

source et la destination sera 

affiche 

$3 BIG : on affiche : (NOT 
source) AND destination 

$4 merries modes que $0 a $3 
$5 mais s'appliquent a I'affichage 
$6 du texte : seul le corps du 
$7 texte est concerns' 
A toutes ces valeurs, si on ajoute 
$8000 a 0, la source est Inverses 
avant operation logique : si C = 
$8001, (NOT source) OR 
destination sera affiche. 

Couleur du crayon 

SetSoIidPenPat (C) 

- Poker en QD+51 

- Poker C en QD+50 

- CALL QD+18 

Attributs du texte 

SetTextFace (C) 
C=0 normal 
C=1 gras 
C=2 souligne 

- Poker en QD+53 

- Poker C en QD+52 

- CALL QD+21 

Mode d'impression texte 

SetTextMode (C) 

Idem SetPenMode pourle texte. 

- Poker C en QD+54/QD+55 

- CALL QD+24 

Couleur du texte 

SetForeCoIor (C) 

- Poker en QD+51 

- Poker C(de0 a 15) en QD+50 

- CALL QD+27 

Trace d'une ligne 

LineTo (H,V) 
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■ Poker coordonnees d'arrivee V 
en QD+70 et QD+71 

- Poker coordonnees d'arrivee H 
en QDt68 et QD+69 

- CALL GD+30 

Inversion d'un rectangle 

InvertRfiCt(Vl,Hl,V2, H2) 

Le rectangle est defini par les 
coordonnees du point haut/gauche 
et bas/droit. 

- Poker V1 en QD+56 et QD+57 

- Poker H1 en QD+58etQD+59 

- Poker V2 en QD+60 et QD+61 

- Poker H2 en QD+62 et QD+63 

- CALL QD+33 



Programme QD.SRCE 

Apw 

jr *■ * * * «■ * =r ^ * * * * jt * jt w w *■ * *■ * ^ * * * * *■ * * * * * * 

* par Le Pham fiiep 87 

* 3 pag-ss de quickdraw $800.$afff 

* programme en $bOO 
it************************************ 

list off 
absaddr on 
CEN off 
SYMBOL off 
org $O00bOO 



FichierEXE 
QD.MAIN 

macgen qd.src gd.ma& 

roa , d2 /macros/— ~J 
asml cjd.srcJ 
rename qd qd.bin-J 
mskfibin qd.bin^l 



][gs 



Dessin d'un rectangle 

PaintRect (VI, HI, V2, H2) 

- Poker V1 en QD+56 et QD+57 

- Poker H1 en QD+58etQD+59 

- Poker V2 en QD+60 el QD+61 

- Poker H2 en QD+62 et QD+63 

- CALL QD+36 

Trace d'un arc 

Paint Arc (VI, HI, V2, H2, S, C) 

Le rectangle V1/H1/V2/H2 sert a 
definir fell ipse support de I'arc, S est 
Tangle de depart, C Tangle de trace. 

- Poker VI en QD+56 et QD+57 

- Poker H1 en QD+58etGD+59 

- Poker V2 en QD+60 et QD+61 

- Poker H2 en QD+62 et QD+63 

- Poker S en GD+64etQD+65 

- Poker C en QD+66etQD+67 

- CALL QD+39 

Couleur de fond 

SetBackColor (C) 

- Poker en QD+51 

- PokerC(de0a15)enQD+50 

- CALL QD+42 



KEEP QD 

mcopy qd.mgnros 

QDstarb START 

jmp iriitcjd 
jmp qdoff 
imp At 
jmp Print 
jmp SetPenMocle 
jmp Graf at i 

jmp SstSol idPenPet 
jmp SetTextFace 
jmp SQtTextMotie 
jmp SetForQColor 
jmp LineTo 
jmp mvert&ecc 
jmp Pai/itFset 
imp PaintArc 
jmp SetflacAcolor 
jmp nothing 

My Id dc i'00' 

color do i '05' 

TexLFace tic- i'01 ' 
T&XtMede do i ' 00 • 



tinstalle Quickdraw 
dosBdm Quickdraw (libers le syst&tne) 
AT(H,V) 

Print {strptr) : de typo Pascal 
SetPenMod»(cotor) :0..3 ou $8000.58003 
GratiOtl 

SotSolidPenPat(color} :cou!sur crayon 
SetTextFaceffexiFace) : 0..3.soutigne 
SetTextModefTextMode) : 0..3 ou b15=1 
S9tForaColor(cobr) ■ set texts color 
LineTofH.V) 
tnvertRect(rectptr) 
PamtR9ct(rectptr) 
Pain iAfc(rectplr,siartangle t angte) 
,- SetBackCotor(cotar) : coufour dv fend 



; normalement $3001 



;00..0f 
;W..03 

• 00.03 $8OM..$B0O3 



rsctptr do i • 10, 10, 100, 100 ' fV1,H1,V2,rl2 

Start Angle dr. i '00 • 



ArcAngl e 



de 1 '10 • 



Bibliographic 
necessaire 

Clefs pour Apple Dos (PSI) 
Rom tools (Apple.) 



H 
V 



strptr 



dc i '20' 
dc i'20' 

str 'hello 0123' ; chains do type Pascal {asdi bas) 
ds 120 



buffer dc h 'EAEAEAEA ' 
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nothing anop fiWlfeff&fo qdstsrtok jnap 



rts 



jmp emul /FINQDintt 



emul 



natif 



anop 
sep £.$30 
sec 
xce 
rts 



get my ID 



a n op 

cXc 

xce 

rep £$30 
rts 



a nop 
phd 



/review en mode emulation ^J^Mat anop 

Gra fOn 
jmp emul 



:AX8bi1S 



/passage en mode natif 
t natif 

;AX1G 



qdoff 



at 



. -- - 

/r§Qupereiewmw 

; IDentification affectee par PRODOS 1 6 



an op 

jsr natif 

_Grafoff 

_QDshutdown 

jmp emul 



3 nop 

jsr natif 
pushword S 

pushword V 
MoveTo 



; FIN qdoff 



pushlong £0 
pushlonrj £$SO0 

_Findhandle 

tsc 

ted 

ldy £$€ 
Ida ($01 J, y 
sta. >Myid 
pi a 

pi a 
pld 
rts 



print 



jmp emul 
a nop 

jsr natif 

pushlong Lstrptr 
_DrawStrino. 

jmp emul 



*** LES FONCTIONS 



r jt- * 



initqd anop 

jsr natif 

pushword £.0 
_QD$tatus 
pi a 

bne deja_inst 

jsr getmyid 

ToolsLoaded anop 

pushluny £.0000 
ptiihlnng f.$el20Q0 
_FlndHandle 
_Dispose!tsndl^ 



contl anop 

PushWord £$800 
Pushword IQQ 
PvshWord £160 
Pushword >MyID 
_QDStarLup 
bee griG tsrt.ok 

brk srr 



Set P&nMndt* anop 

jsr natif 

pushword color 

Sett. P&nMnde 

jmp emul 

Graf Off anop 

jsr natif 

Graf Off 

jmp emul 

SetSolidPenPat anop 

jsr natif 



pushword color 
_SetSolidPenPat 

jmp emul 



Sat ToxtFscm anop 

jsr natif 



t tin Print 



;320 

t nombta dodsts par iigne 



pushword Textface 
SetTQxtFace 

jmp emul 



SotTcxtMode anop 

jsr natif 
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pushword textmode 
_SvtTextMvde 

jmp emul 



setForeColor arsap 

jsr naf" I f 

pushworrt r.rtlnr 
_SetForeColor 
jmp emul 



jsr natif 
pushword H 

pushword V 
_LineTO 

jmp emul 



JnvertRect an op 

jsi natll 



Pel i ntjtc.fif snnp 

jsr natif 



PaintArc 



ProDOS 1 6 



pushlong £rectptr 
__Paint£ect 

jmp Q.mul 



anop 

jsr natif 

pushlong trectptr 
pushvord StartAngle 
pushword Arc Angle 
PaintArc 

jmp omul 



SetBackColor anop 

jsr natit 

pushword color 
SetBackColor 



pushloiigr £rectpti" 

JnvertRect 



jmp emul 



jmp emul 



r FIN drawrsdt 



END 



Programme QD.SAMPLE 

1 : :: :: REM =========================== 

2 sjf fi REM == exemple ^'utilisation == 

3 ::::: REM == de Quick.Dra.wII du GS == 

4 ;:;:; REM — sous Basic par LPR (0 7) — 

(avee JV et DDP) 

5 : : : : : REM ========================== 

6 REM ** Variables utilisees par les SP : 

7 REM ** V,H,Vl,Hl,V2,H2,T$,S,C,QD 

8 : 

9 IF PEEK (104) =16 THEN 50 

10 POKE 103, lr POKE 104,16: POKE 16 * 25 
6,0 

15 PRINT CHR$ (4) ; "bload qd.bln": 

20 PRINT CHR$ (A) ; "-qd. sample" 

50 DIM TXT$(4):QD =11 * 256; PRINT CHR 

$ (4);"pr£3": PRINT : PRTNT : PRINT " 
Examples d' utilisation de Quic 

kdrawll sous le Basic" 
52 TXT$(1) = "Copy" :TXT$ (2) = "Or" :TXT$ (3 

) - "Xor";TXT$(4) = "Bic" 
60 : GOTO 10000 
100 : 

1000 t CALL QD: REM InitQvlckdraw 

1010 RETURN 
1015 : 

1100 : CALL (QD f 3) : REM Quiekdr&wO£f 
1110 RETURN 
1120 : 

1200 : REM $$$$ At ( H , V ) 



B : da 00 A 320 
V : de 00 a 200 

1210 POKE (QD I 11), V / 256 t POKE (QD + 
70), (V - 256 * PEEK (OD + 71)) 

1220 POKE (QD + 69), R / 256; POKE (QD f 
68), (H - 256 * PEEK (QD + 69)) 

1230 CALL (QD + 6) : 

1240 RETURN 

1299 : 

1300 : REM $$$$ Print (t$) 
1310 POKE (QD + 72), LEN (TS) : 
1320 FOR I = 1 TO LEN (T$) 

1330 POKE (QD + 72+1), ASC ( MID$ (T$, 

1340 NEXT ; CALL (QD + 9) 
1350 RETURN 

1399 i 

1400 REM $$$$ SetPenModa (C) 

00.. 03 $8000. .$8003 

1410 POKE (QD + 51) ,0 

1420 If C > 128 THEN POKE (QD + 51), 128 

:C = C - 3 * 16 * 256: 
1430 POKE (QD + 50), C 
1440 CALL (QD + 12) 
1450 RETURN 
1499 ; 

1 600 : REM $$$$ SetSolldPenPat (C) 

00. .IS 

1610 POKE (QD + 51), 0: POKE (QD + 50), C: 

CALL (QD + 18) 
1620 RETURN 
1699 : 
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1 700 : REM $$$$ SetTextFace (C) 

00.. 03 svi.va.nt la version de QDII 

1710 POKE (QD + 53} , C / 256: POKE (QD + 

52), (C. - 256 * PEEK (QD + 53) ) 
1720 CALL (QD + 21) 
1 730 RETURN 

1799 : 

1800 : REM $$$$ SetToxtModtt (C) 

0..3 $8000, .$8003 
1810 POKE (QD + 55), C / 256: POKE (QD + 

54), (C - 256 * PEEK (QD + 55)) 
1820 CALL (QD + 24) 
1830 RETURN 

1899 : 

1900 : REM $$$$ S«tForaColox- (C) 

00. .15 

1910 : POKE (QD + 51), 0: POKE (QD + 50), C 

: CALL (QD + 27} 
1930 RETURN 

1999 • 

2000 : REM $$$$ LlnaTo(H,V) 

2010 POKE (QD + 71), V / 256: POKE (QD + 
70), (V - 256 * PEEK (QD + 11)) 

2020 POKE (QD + 69), H / 256: POKE (QD i 
68) , (H - 256 * PEEK (QD + 69) ) 

2030 CALL (QD + 30) 

2040 RETURN 

2099 : 

2100 REM $$$$ InvertRaot (VI, HI, V2,H2) 
2110 POKE (QD + 57), VI / 256: POKE (QD + 

56), (VI - 256 * PEEK (QD + 57)) 
2120 POKE (QD + 59), Hi / 256: POKE (QD + 

56), (HI - 256 * PEEK (QD + 59)) 
2130 POKE (QD + 61 ),V2 / 256: POKE (QD + 

60), (V2 - 256 * PEEK (QD +61)) 
2140 POKE (QD + 63), H2 / 256: POKE (QD + 

62), (H2 - 256 * PEEK (QD + 63)) 
2150 CALL (QD + 33) 
2160 RETURN 

2199 : 

2200 REM $$$$ PalntRect (VI, El, V2, H2) 
2210 POKE (QD + 57), (VI / 256): POKE (QD 

+ 56), (VI - 256 * PEEK (QD + 57)) 
2220 POKE (QD + 59), HI / 256: POKE (QD + 

58), (SI - 256 * PEEK (QD + 59) ) 
2230 POKE (QD + 61),V2 / 256: POKE (QD + 

60), (V2 - 256 * FEEK (QD I 61)) 
2240 POKE (QD + 63),H2 / 256: POKE (QD + 

62), (H2 - 256 * PEEK (QD + 63)) 
2250 CALL (QD + 36) 
2260 RETURN 

2299 ! 

2300 REM SSSS P*±ntArc (VI, HI, V2, H2, S, 
C) : rectangle, ata.rta.ngla, angle 

2301 : 

2310 POKE (QD + 57), (VI / 256): POKE (QD 

+ 56), (VI - 256 * PEEK (QD + 57)) 
2320 POKE (QD + 59), HI / 256: POKE (QD + 

52), (HI - 256 * PEEK (QD + 59)) 
2330 POKE (QD + 61), V2 / 256: POKE (QD + 

60), (V2 256 * PEEK (QD + 61)) 
2340 POKE (QD + 63\,H2 / 256: POKE (QD + 

62), (H2 - 256 * PEEK (QD + 63)) 



V2 + 2: 



2350 POKE (QD + 65), S / 256: POKE (QD + 
64) ,S - 256 * FEEK (QD + 65) 

2360 POKE (QD + 67), C / 256: POKE (QD + 
66) ,C - 256 * PEEK (QD + 67) 

2370 CALL (QD + 39) 

2390 RETURN 

2399 : 

2400 : REM $$$$ SetB*ckColor(C) 

00. .15 

2410 POKE (QD + 51) ,0: POKE (QD f 50) , C: 
2420 CALL (QD + 42) 
2430 RETURN 
2499 : 

5000 REM ++++ Cartouche (VI, HI, V2, B2, C 
) bout on typo ombre 

5005 S = C:C = 0: GOSUB 1600 
5010 VI - VI + 2: HI - HI + 2:V2 

H2 = R2 + 3: GOSUB 2200 
5015 C - S: GOSUB 1600 
5020 VI = VI - 2:H1 = HI - 2:V2 = V2 

H2 = H2 - -3: GOSUB 2200 
5025 C = 15 - S: GOSUB 1600 
5030 VI = VI + 1:H1 = til + 1:V2 = V2 

H2 - H2 - 1: COSUB 2200 
503b VI = VI - 1:H1 = HI - 1-.V2 = V2 + 1 

B2 - H2 i 1 
5040 
5090 
5099 
5100 

5150 H = HI + (H2 

* 3.5) 
5160 V = VI + (V2 
5170 GOSUB 1200: 
5180 GOSUB 1300 
5190 i RETURN 
5199 
9000 
9010 
10000 



1: 



C = S: GOSUB 1600 
RETURN 

: REM ++++ Center texts (t$) 



HI) 

VI) 



/ 2 - ( LEN (T$) 



GOSUB 1100: GOSUB 1000: REM 
******** DEBUT DE L'EXEMPLE ******** 

10010 C - 5: GOSUB 1600 



10020 VI - 0:H1 

SUB 2200 
10030 .- 

10040 FOR VI = 
10050 C = C + 1: 

EN C = - 1 
10060 V2 - VI + 
10070 NEXT 
10080 : 
10090 



= Q-.V2 = 200 :H2 



320: GO 



TO 198 
COSUB 16Q0: IF C = 15 TH 

2: GOSUB 2200 



FOR C = TO 3: GOSUB 1400: REM 



chgt Fe/iWode 



10095 
10100 
10110 

EN 
10120 
10130 
10140 H m 

1200 
10150 :TS = 

UB 1300 



VI = C * 50:V2 = VI + 50:H2 - 320 

FOR HI = 319 TO STEP - 1 
C = C + 1: GOSUB 1600: IF C — 15 TH 
C = - 1 
GOSUB 2200 :H2 = H2 - 1 
NEXT HI 

(C * 70 + 2) :V = 25 + VI: GOSUB 
"PenMode " + TXTS (C + 1) : GOS 
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10160 NEXT C 
10170 ! 

10200 FOR I = 1 TO 4: 

10210 VI = 0:81 = 0:V2 - 200:H2 = 3200: G 

OSUB 2100 
1 0220 NEXT 

10299 : 

10300 C = 0: GOSUB 1400 
10310 FOR VI - TO 85 STEP 5 
10320 C - VI / 5: GOSUB 1600 

10330 V2 = 200 - V1:H1 = V1:H2 = 320 - HI 

: GOSUB 2200 
10340 NEXT VI 

10499 ! 

10500 C = 10: COSUB 1600 
10510 C » 2: GOSUB 1400 

10520 FOR 3 = TO 359 STEP 10 
10530 C = 11: GOSUB 2350 
10540 GOSUB 2370: 
10550 NEXT S: 

10600 S = 0:C = 08: GOSUB 1600:C = 0: GOS 
UB 1400 

10610 FOR C = TO 360 STEF 9 
10620 GOSUB 2350 
10 630 NEXT 

10640 FOR 1-1 TO 3 :V1 — 0:H1 - :V2 - 

200 :B2 = 320: GOSUB 2100: NEXT 
10697 : 
10 698 .- 

10699 REM example d'utlllsation de 
CARTOUCHE 

10700 C = 5: GOSUB 1600: 

10710 : GOSUB 2200 

10711 :T$ = "Cartouche" 
10798 : 

10199 FOR FO = TO 15 :C = FO: GOStm 240 
0: 

10800 FOR C - TO 15 

10810 VI ~ 2 + C * 12: HI = 30:V2 - VI + I 

2:32 - Hi + 100: 
10820 : GOSUB 5000: REM CARTOUCHE 

gauche 

10921 ; GOSUB 5100 
10830 C = C + 2 

10840 VI - 6 + (C - 1) * 12-.R1 = 170-.V2 = 
VI + 12:H2 = HI + 100: 

10850 : GOSUB 5000: REM CARTOUCHE 

droite 

10851 : GOSUB 5100: 



10860 NEXT C: 
10870 NEXT FO 
10890 : 

10899 : REM exemple d ' utllation 

de Car.iarisx-ts 

10900 :C = 12: GOSUB 1600:V1 = 0:81 = 0:V 
2 - 200 :H2 - 320: GOSUB 2200 

10910 VI = 090:V2 = VI + 20::H1 = 090-.H2 

== Ml f 150:C = 4: GOSUB 5000 
10915 C = 11: GOSUB 2400 

10920 T$ = "Couleur" : GOSUB 5100 

10921 r 

10940 FOR CO = 15 TO STEP - 1 
10950 C - CO: GOSUB 1900: GOSUB 5100 
10960 NEXT CO 
11000 : 

11010 FOR TM = TO 02 : REM TextMode 
11015 C = 04: GOSUB 5000 :C = 11: GOSUB 24 
00 

11020 C = TM: GOSUB 1 700: TS = 'Texts Styl 

e" + STRS (TM) 
11040 GOSUB 5100 
11050 FOR I = TO 600: NEXT I 
11090 NEXT TM 

11095 T? - "LineTo sample": GOSUB 5100 

11099 .- 

11100 :REM ===== LineTo sample ==== 
11110 C = Q:V1 - 0:H1 = :V2 = 200-.R2 = 3 

20: GOSUB 2300 
11120 : 

11125 FOR MODE = 3 TO STEP - 1:C = MO 

DE: GOSUB 1400 
11130 FOR I - TO 200 STEP 2: 
11140 V = I:H = 0: GOSUB 1200 
11150 C = ABS (15 - I / 13): GOSUB 1600 
11160 V = 0:H = 320 - I * 1.6: GOSUB 2000 
11170 V = 200 - I::H = 320: GOSUB 2000 
11190 V = 200: .-if = I * 1-6: GOSUB 2000 
11185 V = I::H = 0: GOSUB 2000 
11190 NEXT I 

11192 NEXT MODE 

11193 : 

11194 VI = 090-.V2 = VI + 20:. -HI = 090:H2 
= HI + 150:C = 3: GOSUB 5000 

11195 :T$ = "The End":C = 12: GOSUB 2400: 
GOSUB 5100 

11199 : 

19999 : 

20000 GET AS: GOSUB 1100 



Recapitulation 
QD.BIN 

Apres avoir saisi celle recapitulation 
sous moniteur, vous la sauvegarderez par : 
BSAVE QD B1N, A$BOO, L597 

0B00:4C FD OB 4C 50 OC 4C 64 

0DC3:0C 4C 73 OC 4C 8C OC 4C 

0B10-.9D OC 4C AA OC 4C SB OC 

0B18-.4C CC OC 4C DD OC 4C EE 



0320 


OC 


4C 


03 


OD 


(C 


16 


OD 


4C 


0B2O 


23 


OD 


4C 


44 


OD 


4C 


CF 


OD 


0330 


00 


00 


05 


00 


01 


00 


00 


00 


0338 


OA 


00 


OA 


00 


64 


00 


64 


00 


OB40 


00 


00 


OA 


00 


14 


00 


14 


00 


0B48 


OA 


68 


65 


6C 


6C 


SF 


70 


.in 


0B50 


31 


32 


33 


00 


00 


00 


00 


00 


0fl.ss 


00 


00 


00 


00 


00 


00 


00 


00 


OB 60 


00 


00 


00 


00 


00 


00 


00 


00 


0368 


00 


00 


00 


00 


00 


00 


00 


00 


0370:00 


00 


00 


00 


00 


00 


00 


00 


0B7S:U0 


00 


00 


00 


00 


uu 


vu 


00 


0B80 


00 


00 


00 


00 


00 


00 


00 


00 



0B86:0Q 00 00 00 00 00 00 00 

0390:00 00 00 00 00 00 DO 00 

OB98:00 00 00 00 OU 00 00 00 

0BA0:00 CO 00 00 00 00 00 00 

0BA8:0Q 09 00 00 00 00 00 00 

OBBO-.OO 00 CO 00 00 00 00 00 

0338:00 00 CO 00 00 00 00 00 

QBCOiOO 00 00 00 00 00 00 00 

0BC8:O0 00 00 EA EA EA EA 60 

0BDO-.E2 30 38 FB 60 IS FB C2 

0BD8:30 60 OB F4 00 00 F4 00 

0BE0:00 F4 00 00 t 4 00 08 A2 

0BE8:O2 1A 2? 00 00 R1 3TS 5B 
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OBFO. 


AO 


OS 


00 


B7 


01 


ST 


30 


OB 


DBFS. 


00 


68 


69 


2B 


60 


20 


D5 


C i.' 


0CQO;F4 


00 


00 


A2 


04 


06 


22 





0C08 


00 


El 


68 


DO 


39 


29 


DA 


,■ 13 


OC10 


F4 


00 





F4 


00 


00 


F4 


S I 


0C18 


00 


F4 


00 


20 


A2 


02 


1A 


22 


0C20 


00 


CO 


El 


A2 


02 


10 


22 


UU 


UC28 


00 


El 


F4 


00 


08 


F4 








0C30 


F4 


AO 


00 


AF 30 


OB 


00 


ji q 

- c 


0C38:A2 


04 


02 


22 


00 


00 




on 


QC4Q:Q2 


00 


FF 


AC DC 


vis 


M2 




0C49 


OA 


22 


00 


00 


El 


4C 


DO 


OB 


0C50 


20 


D5 


OB 


AZ 


04 


OB 


22 


00 


0C58 


00 


SI 


A2 


04 


03 


22 


00 


00 


0C60 


El 


4C 


BO 


Ots 


20 


05 


08 





0C 68 


44 


OB 


48 


AD 


46 


OB 


48 


AS 


0C10. 


04 


3A 


22 


00 


00 


El 


4C 


DO 


0C78- 


OB 


20 


D5 


OB 


F4 


on 


00 


FA 


0C80. 


48 


j 5 


A2 




A5 


22 


00 


00 


0C88 


El 


4C 


DO 


OH 


20 


D5 


OB 


AD 


0CSO-.32 


OB 


48 


A2 


04 


2E 


22 


00 


0C98 


00 


El 


4C 


DO 


OB 


20 


D5 


OB 


ocao 


A2 


04 


OB 


22 


00 


00 


El 


4C 


0CA8 


DO 


OB 


20 


Db 


OB 


AD 


32 


OB 


0CB0 


48 


A2 


04 


37 


22 


00 


00 


57 


0CB8 


4'J 


DO 


OB 


20 


D5 


OB 


AD 


34 


OCCO 


OB 


48 


A? 


04 


SA 


22 


00 


00 


OCCS 


El 


4C 


DO 


OB 


20 


D5 


OB 


AD 


OCDO : 3 6 


OB 


48 


A2 


04 


9C 


22 


00 


0CD8 


00 


El 


4C 


DO 


OB 


20 


D5 


OB 



OCEO 


AD 


32 


OB 


48 


A 2 


04 


AO 


27 


UCE8 ; 00 


00 


El 


4C 


DO 


OB 


20 


D5 


or.Fo 


OH 


AD 


44 


OB 


43 


AD 


46 


OB 


3CFS 


48 


A2 


04 


3C 


22 


00 


00 


El 


ODOO 


4C 


DO 


OB 


20 


D5 


03 


F4 


00 


ODOS 


00 


F4 


38 


OB 


A2 


04 


56 


22 


0D1O 


00 


00 


El 


4C 


DO 


03 


20 


D5 


DDIS 


OB 


F4 


CO 


00 


F4 


38 


OB 


A2 


0D2U 


04 


54 


22 


00 


00 


El 


4C 


DO 


0D28 


OB 


20 


D5 


OB 


F4 


(10 


00 


F4 


0D3O 


38 


OB 


AD 


40 


OB 


43 


AD 


42 


0D33-.OB 


48 


A2 


04 


€3 


22 


00 


00 


0D4O 


El 


4C 


DO 


OB 


20 


jD5 


OB 


AD 


0D48 


32 


OB 


48 


A2 


04 


A2 


22 


00 


QD50 


00 


El 


4C 


DO 


03 











1 ne s'agit pas d'un 
accessoire de bureau type 
GS mais plus modestement 
d'un programme WPL qui 
permet I'exploitation de la 
carte horloge depuis votre 
traitement de rextes prefeie. 
Si vous avez une carte Speedisk, 
vous saurez l'heure actuelle, 
sinon vous connaitrez une heure 
vieille de 3 on 4 secondes. 

Le mode d'emploi est simple : 
faire ; 

<ctrl-P>DO HEURE 
L'heure, sous la forme 10:58 est 
inseVee a l'emplacement du 
curseur. Faiies anouveau ; 

<ctrl~P>DO HEURE 

l'heure est effacee. 

Seule contrainte : il faut avoir 
dans le catalogue cnurant un 
sous-catalogue nomme 'N' 
reserve au seul usage de la 
recuperation de l'heure. Ce 
sous-catalogue contiendra un 
fichier compose" de 
uniquement. 



Bien sur, il sera plus confortable 
de mettre l'ordre WPL dans une 
commande glossaire : vous aurez 
l'heure sous la pomme, 

(3 
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Fichier HEURE 



• PAID 

•PCS/$a/*/ 
*PGO* 

■ F/ /**/ 
*0? 

•B 

•F/**/ 

■ 7 

'SN/N, * 
•O 
'UU 
•OAN£ 
. y 

•D 

+ F< $$$$2££< ■ 

•0? 

•FiW 

•UUU 

t p j _f 

*o? 
•n 

•tm 

•PAS*=$A 
•PQT 

• .£P 

• mm 

•PAS=$A 



Sloppe I'affichnge. 

Si le poinieur$A est *, 

aller a letiquette *. 

Met dansle texie. le repere ** 

a la place du curseur. 

Debut page texts et direction > ligne de statuL 
Retourne au repere **. 



Sauvegarde, dans le sons -catalogue N, le fichier N 
ne contenant que le repere **. 
2fiiclies de droite : passe devant le repere ** 
Charge le catalogue en memoire texle. 

Change la direction ligne de statut : <. 
Remplace la fin du catalogue jusqu'a l'heure de 
modification par un nouveau repere **. 
Met dans le buffer tcxte l'heure et un espace. 
Deplace le cureur vers la dmite, apris le repere **. 
Supprime tout ce qu'il y a entre les reperes, 
repircs inclus. 

Change la direction ligne de statut : >. 
Remet l'heure et t'espace du buffer dans le texte. 
Initialise le pointeur $A. 
Fin d'un premier appel. 
Second appel : change la direction. 
Supprime l'heure. 




Vide le pointeur $A. 



ProDOS 
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¥ as cat 
Cantot 




Source ONLINE.S 

Assembleur Merlin Pro 



ProDOS 



BASIC 


KBD 






CNTR 


- 


$18 




IN 




$200 




BUFFER 




$200 


■tJt.i 1 isnns TN comma buffer 




DO 


BASIC 




KXTRNCMD 




$BE06 


,*vecteur vers commande exL&zue 


ERROUT 




$BE09 


;Traitement d'erre-nr 


XTRNADDR 




$BE50 


;Adresse tie la commands externe 


XLEN 




$BE52 


; longueur — J de Is mmmanri** 


XCNUM 




SBESJ 


;w" commands basic. SYSTEM fext.-D; 


PBITS 




$BE54 


tDrapeaux des parsmf'tr^.t requis 


B ADC ALL 




$BS8ti 


?Convercit erreur MLI -> Basic 


SON LIKE 




$B£C6 


/Llste parametr&s MLI pour GN_T,TNE: 


SUN1 TNUM 




$BEC7 


,' Code de 1 'unite (00 = LuuLe-s; 


SBUFADR 




$BEC8 


Adresse du buffer 




FIN 






MLI 




$BFOO 


? Point d'entree du MLI ProDOS 


SERR 




SBFDF 


/Code erreur ML! (00 = ok) 


BITMAP 




$BF58 


fSchem-a occupation mamoira 


PRBYTE 




SFDDA 


/Atliche A en hex* 


COUT 




$FDED 


fAffichs le esr£<?£e.re dans A 


RTS 




?FF58 


;RTS connv en ROM 


On_Line 


EQU 


$C5 


/Reference de la routine On_Line 



******************************** 

It 

* Code destine a e A tre reloge avec CMDLOAD fcf POM'S 20) 

* syntaxe commands: "ONLINE", pas do parametres 

* 11 faut charger CMDLOAD en SZ0O0, ONLINE. CODE en $2100 

* et fairs CALL 8192 pour installer la commande ProDOS 



ORG $2100 



;Adresse arbitraire ($22 00 pour CMDLOAD) 



DO 



BASIC 



START 



CLD 
LDA 
LDA 

V_OLDCMD LDA 
SF.T 

ONLINCCM LDX 
CHKCOM LDA 



/Convention avec ProDOS 
£>PRGEND+$1G0 .-Convention avec CMDLOAD 
£>PRCLEN+$100 

RTS lAdresse commands precedents 

;Inhnlbe les interruptions 
CO iVkti Ifle qu'il s 'aqit bien 

JN r y ;de noire commande 




ui n a jamais 
souhaitd disposer 
sons ProDOS 
d'une commande 
dormant la liste 
de tous les 
volumes en ligne, comme le font 
AppleWriter, Merlin-Pro, etc. ? 
Nc scrait-ce que pour connaitre le 
nom de telle disquette, ou savoir 
si telle autre disquette est bien au 
format ProDOS... 

Cette fonction existe au sein du 
noyau ProDOS : clle s'appelle 
on_ line. Mais elle n'est 
accessible que via le MLI 
(Machine Language Interface) 
qui, comme son nom l'mdique, 
nc pcut etre appele* que par un 
programme machine. 

La routine ONLINE proposee ici 
affiche la Hste de tous les volumes 
en precisant pon, lecteur et nom 
d'acces de chacun d'entre eux. De 
plus, si une erreur survieni lors 
de la lecture d'un volume, le 
programme affiche a la place du 
nom le code dc l'erreur MLI 
specifique a l'unite ayant 
provoquee rerreur. Exemple : 

S6,D1: /MhHLIN 
S6,D2: $52 
S3,D2; /RAM 



Nous voyons que la disquette (ou 
plutot le volume) dans le lecteur 
2, port 6 n'est pas un volume 
ProDOS (e'est pent-Stre une 
disquette DOS 3.3, CP/M...). 
Les erreurs possibles sont les 
suivantes : 

$27 ; erreur d'entree/sortie (I/O 

ERROR) ; 
$28 : pas de peripherique 

connect^ (NO DEVICE 

CONNECTED) ; 
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£$80 

CMDSTR, X 

BADCQM 
£6 

CHKCOM 



ORA 

CMP 

BNE 
INK 
CPX 
BCC 

Chi 
DEX 
STX 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 
CLC 
RTS 



V_ONLINE JMP ONLINE 
BADCOM 



; Convert ic en Ascii neqatif 

;S1 pas not re commands 

:5 caracteres correspondent? 

;Nu:i -> on continue 

; Alitor ise A nouvenu lea interruptions 



XLEN 

V_ONLINE-hl 

XTRNADDR 

V_0NLINE+2 

XTRNADDR+1 

£0 

SERR 
XCNUM 
PB1 TS 
PBITS+1 



,'C'^sr h/en "ONLINE"! 

;alors on donne au BASIC* SYSTEM 

.•l'ordre de 1 'execute r 

;Pem: on n ' i r>d fqrtM pas dans PBITS 
;qu'avcvn parametre , s, ■ 

;n'est rerplis par ONLINE. 

/Done ONLINE, 56, Dl ne provvquezd 

;p»s d 'orrour msis seul "ONLINE" 

;sera prls en compte 
,-Retourne vers lo BASIC. SYSTEM 

fVeotcur vera ONLINE 



SEC 
CLI 
JMP 

FIN 



.•Si ce n 'ast pas "ONLINE" 
/Retourne avec C-l 
(V OLDCMD+1) /at essaye comm. suivante 



* Routine principale : 2 points d 'entrees 

* ONLINE: lists tous les volumes 

* ONLINO; affiche le nom du volume dans 1 'unite 

* dont le code DSSS0000 est dans A 

* (D: drive 0-1, SSS; Slot 0-7) 



ONLINE 
ONLINO 



PHMADK 



ONLINZ 



SCANVOL 



LDA 
STA 
LDX 
STX 
LDX 
STX 
LDA 
AND 
STA 

JSR 
DFB 
DA 
BEQ 

DO 

JSR 

JMP 

ELSE 

RTS 

FIM 

LDX 
LDA 
PHA 
LDA 
BEQ 
PHA 
LDA 



£0 

SUNITNUM 
£<BOFFER 
SRIIFADR 
tsBUFFER 

sRUFAnn+i 

BITMAP 

£%11011111 

iSITMAP 

MLI 

Gn_Line 
50NLINE 
ONLINZ 

BASIC 
3 ADC ALL 

BRROUT 



£0 

CNTR 

DUFFER, X 
EOBUF 



;Balaye tous les volumes 
;A = dsssOOOO fd; drv, sss: 



slot) 



;S 'assure qve Ja pagtt 2 (IN) 
;est marquee comme "llbre" 

;Ex£cute la routine On_Line 
;du MLI PmDOS 

;Z^1 si pas d'erreur 



;Sinon, ariiche Le message 
/d'srreur (ou qers ON ERR) 

/Sort avee Z-0, C=J et A= erreur 



LS8D 



/Saisle le premier octet 
;Sl 00, alors fin 

iSinon. nouveau volume 



$2E : disques ^change's : fichier 
encore ouvert sur un autre 
disque ; 

$45 : impossible de trouver ]e 
repertoire du volume 
(VOLUME DIRECTORY 
NOT FOUND) ; 

$52 ; ce n'est pas un disque 
ProDOS (NOT A PRODOS 
DISK) ; 

$57 : nom de volume ddja utilise 
(DUPLICATE VOLUME). 

ONLINE peut rcconnaitre jusqu'a 
16 volumes (e'est le maximum 
Lul£re" par ProDOS). La routine 
utilise le buffer clavier 
($200-$2FF) comme espace de 
travail. Aucune adresse page zero 
n'est modifiee. Enfin, il est 
intercssant dc savoir que 
ONLINE prend moins de 256 
octets en memoire. . . 

Loisque ONLINE. S est assemble 
(par MERLIN PRO), le systeme 
demande de dormer une valeur a 
l'dtiquette (label) "BASIC" 
("Give value for BASIC:"). Si on 
cntre "1", le code objet produit 
sera celui d'une commande 
externe ProDOS nominee 
"ONLINE", installee par 
CMDLOAD (voir la revue Pom's 
20). Si on repond "0" en 
revanche, le code produit est celui 
d'une simple routine machine 
appelee par CALL, JSR, BRUN, 
etc. 

La commande 
OnLine 

Pour rinstaller, il suffit de fane ; 

- ONLINE. EXE 

(Ce fichier a tti oblenu en fotiant : 

BLOAD ONLINE. CODE 

BLOAD CMDLOAD 

BSAVE ONLINE . EXE. A$2000, L512 
ONLINE. CODE est le r^uilal de 
('assemblage de ONLINES option Basic, 
CMDLOAD est U relogeur d'A. Avrane 
(Pom's 20).) 

La routine sera relogee sous le 
BASICS YSTEM et la commande 
sera active et utilisable comme 
n'importe quelle autre commande 
de ProDOS. 

La syntaxe est : 

ONLINE 
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SETDX 



EOBUF 



VOLERR 



JSR 


com 


LDA 


£"S" 


JSR 


COUT 


PLA 




PEA 




AND 


LiOlllOOl 


LSR 




LSR 




LSR 




LSR 




CLC 




ADC 


L"0" 


JSR 


GOVT 


LDA 


£", " 


JSR 


COUT 


LDA 


£"D" 


JSR 


COUT 


LDY 


£0 


PLA 




ASL 




TYA 




ROL 




ADC 


£ "1 " 


JSR 


COUT 


IDA 


£ II * II 


JSR 


COUT 


IDA 


f „ ., 


JSR 


COUT 


LDA 


BUFFER, X 


INX 




AND 


£$0F 


PSA 




BEQ 


VOLERR 


STA 


CWTR 


LDA 


£"/" 


JSR 


COUT 


LDA 


BUFFER, X 


ORA 


£.$90 


JSR 


COUT 


INX 




DEC 


CNTH 


BNE 


FRNAME 


PLA 




EOR 


£$0F 


STA 


CHTR 


TXA 




CLC 




ADC 


CNTR 


TAX 




BCC 


SCANVOL 


LDA 


L$8D 


JSR 


COUT 


LDA 


L$8D 


JSR 


COUT 


PLA 




STA 


CNTR 


CLC 




LDA 


£0 


RTS 




TXA 





;Envoie un retovr chariot 
,-Affiche "Ss r Dd: " 




; Convert it en chiffre nscii 



;Bit? (drive} > C 

:Si C=0, alor$ drive 1 sinor, drive 2 
;C -> Bit de A, fit Me 7 de A -> C 
,-mais bit 1 = 0, done C - 



jlsole la lunyu&UL du nom 

;S1 NameLength - 0, silcui 
;Sinon, on peut afficher le nom 



;A£flche le nom du volume 



Tout ce qui suit (parametres, S, 
D..,) est ignore par I'interpre'teur 
du Basic.System. 

OnLine sans le 
Basic 

Correspond a l'option 
d'assemblage "BASTC = 0" 
(fichier onl ine. obj non liste 
ici). La routine s'ex£cute a 
l'adresse "adr" indiquee par la 
directive "ORG" dc f assembleur 
(par defautici $2100); 

Un JSR adr (ou CALL adr) 
afficbe la liste de tons les volumes 
connect6s, alors qu'un JSR adr+3 
sdlectionne un lecteur de disque 
particulier : en ce cas, mettre le 
code de I'unite" dans 
raccumulatetir sous la forme 
DSSS0000, avec D - num6ro du 
lecteur moins un (done ou 1) et 
SSS = slot (0-7). 

Si vous souhaitez executer 
ONLINE a une autre adresse 
'adr' sans reassembler le source, 
il suffit de mettre en adr+$04, 
adr+$09 et adr+$0E le poids 
FORT de la nouvelle adresse 
d'execution (cela suppose que la 
routine se trouve en debut de 
page, done a une adresse de la 
forme SxxOO, ou xx est le poids 
fort de 'adr'). 



,-Calcule l'adresse 

/du nom do volume suivart 

,*= adr. courants + (15-long. nom) 


r 

InterPom's 

version 2.0^ 


/Ton jours pris si moins de 16 volumss 
/On a liste tous les volvm&s 


Des transmissions 
intelligentes entre : 


ton saute deux llgnes 


Apple//" 


tOn restaur e CNTR 


et/ou 
Macintosh^ 


,-et on sort avec C=l 
;Z=1 et A = 


et/ ou 

IBM®et compatibles 


; AFFiche le code de J 'erreur 


Bon de commande page 75 



Pom's n° 33 



Recapitulation 
ONLINE.EXE 

AprHs avoir saisi cette recapitulation 
sous moniteur, vous la sauvfigarderez par . 
BSAVE ONUNE.EXE, A$2000JJ12 



2000 
2008: 
2010: 
2018: 
2020: 
2028: 
2030; 
2038: 
2040: 
2048: 
2050: 
2058 
20 SO 
2068 
20 fO 
2078 
2030 
2088 
2090 
2098 
20A0 
20A8 
20B0 
20B8 
20CO 
20C3 
20 DO 

2 one 
20E0 
20E8 
20F0 

2 OPS 



AD 00 BF 
87 4C ED 
05 A9 15 
21 69 00 
AS OE 4C 
SO FS A£ 
8E 07 21 
21 AO 00 

21 85 3C 
74 A9 21 
:00 Bl 43 
;A4 2F CO 
:C9 21 90 
:04 65 3C 
:t>5 2F 85 
:85 49 [}0 
:84 3C 85 
:84 42 88 
;06 BE 85 
;$D FB 20 
;SD FC 20 
FO 4/ AD 
:AD FD 20 
:68 23 07 
:58 BF DO 
:B9 F3 20 
:BF AD FC 
;ED FD 20 
:A5 3D DO 
;E8 SA GO 
;B9 38 60 
:04 02 (77 



C9 4C 
FD AD 
4C 09 
20 98 
09 BE 

08 BE 
AE 07 
BC 07 
68 38 
85 49 
FO 27 
02 DO 

09 CD 
91 48 
48 A5 
D3 AO 
3D 18 
84 3E 
43 C8 
AS 74 
8£ 3D 
FC 20 
48 4A 
AS BS 
El A5 
ID 58 
20 38 
CD FB 
07 18 
AS 00 
SO 40 
00 00 



FO 05 A9 
4D BE FO 
BE AD 04 
20 90 05 
CD 02 21 
BD 08 BE 
BE 8E 06 
BE 48 E9 
E9 04 65 

84 43 AO 
20 8E F8 
OF Bl 43 
02 21 BU 
A5 48 Iff 
49 6S 00 
00 A9 21 
6D 04 21 

85 3F AD 
4C 2C FE 
18 69 04 
CE FC 20 
3D FD 20 
4 A 4A AA 
F3 20 3D 
3D DO 09 
BF 9D 58 
CE FD 20 
20 DO DO 
AE FD 20 
85 3D FO 
20 10 08 
00 AD 99 



PHA 

LDA £"$" 

JSR COUT 

LDA BUFFER, X 

JSR PRBYTE 

PLA 

TAX 

CT.C 

BCC SETDX 
BRK 



/survenue durar.t. Is lecture 
;du volume 

r (code MLI hexa) 



; . . . Et continue >. 
,-Tou jours pris 

;Fin du code s reloger (CMDLOAD) 



Jf Jt * X * * * 



DO 

CMDSTR ASC 
PRC END 
PRGLEN 

ELSE 
SOHLINE DFB 
SUNITNUM DFB 
SBUFADR DA 

FIN 



BASIC 

"ONLINE" fNom de la cummctnde 
* 

PRGENDSTAR T+$100 

2 ;Si pas tie BASIC. SYS TEN 

00 ;alor$ j J faut notre propre 

BUFFER ;ParmLlsz 



2100: 


D3 


A9 


22 


AS) 


02 


AD 


58 


FF 


21 80 : 70 


SA 


4A 


4A 


4A 


18 


69 


BO 


2108. 


78 


A2 


00 


Hi: 


00 


02 


03 


80 


2188:20 


ED 


FD 


?.i 


AC 


20 


ED 


FD 


2110. 


DD 


F7 


21 


DO 


29 


Bfl 


F.O 


06 


21 9Q.-A9 


C4 


20 


ED 


FD 


AO 


00 


68 


2118. 


90 


Fl 


58 


CA 


8E 


52 


BE 


AD 


21 98: OA 


38 


2A 


69 


Bl 


20 


ED 


FD 


2120 


1C 


21 


8D 


50 


BE AD 


3D 


21 


21A0-.A9 


BA 


20 


ED 


FD 


A9 


AO 


20 


2128 


3D 


51 


BE 


AS 


00 


OD 


OF 


BF 


21A0:EQ 


FD 


BD 


00 


02 


E8 


29 


OF 


2130 


3D 


53 


BE 


8D 


54 


BE 


3D 


55 


21B0:48 


FO 


31 


85 


18 


A9 


AF 


20 


2138 


BE 


18 


60 


4C 


43 


21 


38 


58 


21B8:£D 


FD 


BD 


00 


02 


09 


80 


70 


2140 


6C 


06 


21 


A9 


00 


BD 


C7 


BE 


21 CO: ED 


FD 


ES 


C6 


13 


DO 


F3 


68 


2148 


A2 


00 


8E 


Cg 


BF. 


A2 


02 


8E 


21C8:4<i 


OF 


85 


18 


8k 


18 


65 


18 


2150 


C9 


BE 


AD 


55 


BF 


29 


DF 


3D 


21D0;AA 


30 


9A 


A3 


8D 


20 


ED 


FD 


2158 


59 


BF 


?0 


00 


BF 


C5 


C6 


BE 


21D8:A9 


8D 


20 


ED 


FD 


68 


85 


18 


21 60 


•FO 


06 


20 


SB 


BE 


4C 


09 


BE 


21E0-.18 


A9 


00 


60 


8A 


49 


AS 


AS 


21 68 


■A? 


00 


A5 


18 


48 


BD 


00 


02 


21E8:20 


ED 


FD 


BD 


00 


02 


20 


DA 


21 70 


■FO 


61 


48 


A3 


3D 


20 


ED 


FD 


21F0-.FD 


68 


AA 


18 


90 


Bl 


00 


CF 


21 73 


■A3 


D3 


20 


ED 


FD 


68 


48 


29 


21F8-.CE 


CC 


C9 


CE 


L'5 


FD 


BF 


4C 




Le debut d'imprcssion d'un fichier, surtoutla ligne du fitfwf,estsouventperturbee par des caracteres 
resfes dans le buffer d'im prim ante, en parficulier apres rinitialisation-caracteresprograrfimables on 
autres - ou bien espaces de marge de gauche d'une precedente impression. 



Pour resbiidre tmis Ies prnblemes de ce type, il suffit d'inclure au debut de la ligne du haut le caractere 
<ctrl-X> qui a justement pour function de vider le buffer d'impiimante. Si vous n'utilisez pas cette 
ligne, ellejpcut toutcfois ne contenir que <ctrl-X> ou bien par exemple <ctrl-I>80N<ctrl-Xxesc^E 
(rnnfigiiratinn de l'interface, vidage du buffer, choix des caracteres "fcLITE"). 

Elie peutaussi contenir une ligne complexe initialisee par un fichier texte tel celui pre"sent6 ci-dessous. 

.LH*<ctrlI>80N<XXesc>P<esc>!<esc>Xquartier r rastaux' RN 120 MOUSSAILLON 7 4 550 
Caurcies t.61 : 70.70.70.70 <«3c>n<ctrl-N>j.POM' S<esc> q<ctrl-o> soci£te 

nouveile<esc>E <eso>Y<eec^"* 
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Pascal (DuSoin 



TERET 30FTUHP.E E< DUtsU J H . I- 



ca ta loo d i sk i 



*T 021 ART I CLE : POMS 

*T 001 - 

*L 091 CRTS. SOURCE. LIEU 
*T 001 F t CH I ER , EFFACE .13 
*T 001 FiCHIER EFFACE, 2: 
*fl 005 PHOO,eOOT 
MI 



FILES: 007: EFFACES: 000 L IB . ',.2£A . NUiCTO; 002 



CATALOG 


tLH HJH 




















LONGUEUR 
F EFFACES 




■CRRF!C : CTRL 




:;■ TRI 


-CATALOG 


REngiaRRER 



















et utilitaire permet de 
visualiser le catalogue 
d'un disque formate' 
en DOS 3.3 avec 
quelques avaiitages par rapport a 
la simple commande utilisee par 
le DOS : 

* visualisation des fichiers 
effaces ; 

* visualisation des caracteres 
de controle ; 

* visualisation des adresses de 
chargement des fichiers ; 

* tri du catalogue (11 options) ; 

* defilement de haut en bas et 
bas en haut du catalogue ; 

* utilisation de la souris et de la 
carte 80 colonnes. 

Petites annonces 



Vous et.es abnnn£ ? Pom's 
ouvre gratuitement ses 
colonnes a vos petites an- 
nonces : vente, recherche 
de materiel ou de logiciel, 
contact, club... (Pom* les 
ventes de logiciels, joindre 
la photocopie de la facture 
d'achat). 

Les annonces seront 
constitutes de 250 carac- 
teres au maximum et 
preci seront obligatoire- 
ment le type de materiel, le 
prix et votre numero de 
telephone. 

Elles nous seront 
adressdes par courrier ou 
messagerie CalvaCom 
(empll ). 

v J 



Configuration 

Le programme requieit : 
* une carte 80 colonnes ; 
■ le microprocesseirr 65C02. 

Lcur presence esl dctcctec 
automattquement en debut de 
programme. En cas de non 
installation, vous Stes invito a 
'rebooter' le systeme sur un autre 
disque par simple appui sur la barre 
d'espacement, L 'interface souris n'est 
pas obligatoire, mais le programme 
actionne aulomaliquemeai Familial en 
cas de detection de ladite interface. Le 
cas echdant. il autorise simplement les 
ordres entrcs au clavier. 

Utilisation 

Selections 

Dans le menu principal, on 
selectionne les options soit en se 
d^placant a 1'aide des Heches et en 
validant par Return, soil en dtSplacani 
le curseur par un simple *clic' et en 
validant par un double 'clic'. 
Pour ia selection du lectcur de disques, 
le principe est le meme avec, en plus, 
la possibility de s'echapper par Escape 
ou par un simple 'die* sur le bouton 
du coin superieur gauche de la fenStre. 
Ces deux dernieres options se 
retrouvent bien evidemment tout au 
long du programme. 



La suite est aussi classique pour les 
personnel ayant utilise un Macintosh. 
Dans toutes les options d'affichage du 
catalogue, on peut se deplacer k l'aide 
des flfcehes du clavier ou celles 
dessinees a l'ecran, mais vous avei ia 
possibility de vous deplacer 
rapidement en frappant an chiffre de 
a 9, (B) pour Begin, ou encore {E} 
pour End. 

Les utilisateurs de la souris ne seront 
pas leses pour aulant, car le mode 
d£placement rapide lcur est accessible 
par simple 'clic" sur la bande de 
l'ascenseur, Ce mode de deplaccment 
est deconnectd lorsque que I'option 
MOVING est activec. 

Le Tri 

Dans ('option de TRI vous pouvez 
changer le sens (ascendant ou 
descendant) par un 'clic* sur le petit 
bandeau, ou en ntilisant la bane 
d'espacement. Le cIioia de la rn&hode 
de tri est effectue en 'cliquant' sur les 
chiffre.s inverses ou en entrant un 
chiffre au clavier. 

Mise a jour 

Pour r66crire un catalogue trie, il 
suf fit de 'cliquer' sur le drive 1 qui est 
silue en haul a droits de la feneUc de 
travail. Les utilisateurs du clavier se 
contenteront de taper W. 
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Une fe.nerre fl'alarme s'nuvrira, vniis 
demandant de cunfiniier voire action 
soit en cliquant sur OK, soil en 
faisant Return. Pour abandonner. U 
faul cliquer dans tout autre endroil de 
la fenetre ou bien encore faire Escape. 
Cette procedure fonctionne pour toutes 
les f enetres, d'alarmes 
En ce qui conceme la meihode de tri 
ditc Personnels, clle vous pcrmct dc 
placer vos fichiers dans l'ordre que 
vous auiez choisi. Pour cela, il 



convient de selectionner un tichier a 
1'aide de Tune des diverses methodcs dc 
deplacemenl enoncees plus haul el de 
cliquer sur le bandeau inverse, ou 
encore de firapper Return, ce qui aura 
pour effet de vous meltre en mode 
emplacement. 

Le mode 'deplacement' 

Ce mode sera caracterise par I'afnchage 



de moving sur la ligne superieure de la 
fenetre de travail, Vous pourrez alors 
positionner votre richier a 
1'emplacemeni de voire cboix, et l'y 
fixer par un second 'die' sur le 
bandeau ou Return. Pour reecrire le 
catalogue, la procedure est la rneme 
que dans les autrcs tris, e'est-a-dire : W 
oti 'cliquer' sur drive-: 1 el confirmer 
nor Return uu OK. 



Source 






FILENBE 


EPZ 


121 










STA 


LGN23. X 


'SOURCE.LISA' 


DOS 

FILENUH 


EPZ 
EPZ 


132 
133 


nrv 

CORSOR 




$20 
St2 




I NX 
INT 












MOVING 


EPZ 


134 


SABLE 




$*3 




cpy 


140 




MS 






SBLCL1C 


EPZ 


131 


FS 




ffl 




3CC 


















FS 




$8A 




PLA 


















Ffi 




$8B 
S8D 




57A 


'fir's 3 .1 JO 


• THE FSENCH 


BISX. 




FAC 


EPZ 


to 


RTN 


















m 




$ta 




IDA 


£21 5 


x CATALOG EDITOR 










FD 




$95 




JSP 


WAIT 


5QR1 




• 


INTEGER 


ECU 

boo 


SE1 OC 
}E>IZ 


ESC 

sre 




$3B 

$A0 




DEC 


TEMPO* 1 








* 


MOLT I 






la IS Mil 


37 




sivise 


SiV 


Hrfi 










npi. 


71 










AJKi 


BOO 


SEB63 


MM 


ESS) 


SB000 


















9 








SiGNE 


EOU 


SEHSU 


AURISL 


aw 


fUM 




I£W 


tire 


; VARIABLE EN PACE 


ZERO 


FLOAT 


BOO 


SEB33 


AUKS i n 




isioo 


'0 




LGIflOte. Jl 










INT 


EQU 


SEC23 


LENGHT 


too 


$32U0 








DRIVE 


EPS 


2 










START 


ECU 


$3300 




apt 


to 


TRACK 


EPZ 


4 




: SOU WHITEOR 


TSL 


eoc 


$9*00 


* 






SECTEUR 


EPZ 


5 






















DATA 


EPS 


» 




ratio 


EGO 


SC300 


t OPCODE SSB2C 




3PL 


n 


run 


KP7. 


>? 




naarD 

PRAX 


BOO 
BOO 


SC600 
SFSJI 


IMA 




I1A 




SHI 


TO 


INDEX 


EPZ 


21 




VTAB 


ECXI 


$FB%B 


DEA 




$3* 


BEGIN : 






LEVEL1 


EPS 


22 




TEXT 


«SJ 


$FB2F 


TR3 




$1C 




LDA 


LSI ' 


TSENS 


ETZ 


2J 






BfiO 


tFSCl 


STZ 




$64 








3TYZB 


BPS 


24 




hots. 


SOf 


fFc;s 


PRX 




STIA 








FTR 


ses 


Zl 




1 Utrt'i 


EQV 
BOH 


fFCSZ 
5FC7I 


PLX 








STA 


RBOOTH 
It AS 


CHI 


EPS 


21 




WAIT 


EOO 


SFCAB 




one 


$SQQ 




i?TA 


p/KXjrf 2 


Oil 


F.P2 


23 




FKB 
COOT 


EOV 
ECO 


SFDDA 
$FDFS 




OBJ 


MOT 








LEFT 


EPZ 


32 




INVERSE 


Ssff 


SFESS 


TEST: 












BIGHT 


EPZ 


33 




NORHAL 




SFBii 




J5H 


HOUb 








TOP 


EPZ 


3< 




SCREEN 


£00 


JFESJ 




JSR 


SCREEN 


~Q 


LDA 


RlfTS, Jf 


DOHN 


EPZ 


35 










f 








STA 


$0, X 


CH 


EPZ 


3f 




: ADRESSES HARDWARE 




IDA 


CARTSO 




OEX 




ev 


EPZ 


37 




SSOOT 


EGO 


S3E2 




BUI 
LDA 


TESTERR 
TDENT 




BPL 


<0 


UAsl 


EPS 


40 




Men 


ESS 


S47t 




CMP 


IAPPLE2C 




LDX 


£7 


STOKE 


EPS 


44 




Vtt?OE 


EQU 


f4EB 




BED >Q 


*Q 


DEC 


PTR*1 


TEMP 


EPS 


4S 




MCV 


EQU 


S4ES 




HP 


r*PPlJR7F. 




DEX 




irarl 


EPZ 


43 




XAXL 
MAXM 


E<JU 
EQU 


^3r» 


•0 

t 


2EQ 


BEOItJ 




HMI 

i.nv 


> I 
£12 


tOKC 


EPZ 


33 




M1HL 




it '"0 


TEETEP.& . 








LDA 


(pth), y 


ICONE 


EPZ 


31 




mm 




SUB 




J3/i 


PRINT 




CUP 


132 


HSWT 


EPZ 


32 




MSTAT 


EW 


S778 




iSIT 23,10 




a«e 


<0 


















AiC 


-fPRESS 5?*CE PD 




LOT 


tisi 


MAXCL1C 


EPZ 


54 




LSH10 


EW 


$528 




BOUT! ■' 




LOA 


<ptrj , r 


tilNC&IC 


EPZ 


Si 




LGN12 


ESC 


$628 




3RH 






CUP 


t$B( 


rs«po 


EPZ 


it 




ICS 2 2 


EDO 


$150 










BNE 


to 


OPTION 


EPZ 


33 




LOS23 


EOCT 


S7D0 


TO 


JSR 


PRINT 




LDA 


PTRtl 














SIT 


ID. S 




STA 




VDTX} 


EPZ 


84 




OB 


EV 


fCBBO 






-< CARTE SO 




STA 


HS12 


VF}7X? 


KPT. 






sTtvaz 




$CQ10 




C010NKES C S5(?2c >" 




EOR 


LSCO 




EPS 


M 




CfJ>T30 


BQV 


fcei 7 




BHK 






STA 


tiSLOT 










3PXR 


BOO 












BNE 


si ?g 


DELFLG 


EPZ 


92 














Hi 








OELSET 


EPZ 


S3 




; COK5TANTE5 






STA 


TEMPO 


'1 


LDA 


t$to 


lsnflo 


EPZ 


S« 












IDA 


IS 




STA 


rffiPSf 


fllDFLS 


Etl 


>3 




SET 




a 




STA 


TEMPCN-i 




STA 


HCVSEPFT 


SETCUR 


EPZ 


36 




5EFVE 




1 










STA 












READ 




2 


Tl 


LDA 


KBD 




SUE 


TTL 


ALPHA 


EPS 


125 




CLEAR 




3 




BPL t2 








LOCK 


EPS 


120 




FOS 




4 




JKF 


BOOT2 


MOOSEOX: 






DEL 


EPS 


121 




CLAUP 




5 










LDX 


IH1MT 


HFTOK 


BPl 


114 




MMQHS 
HI SIT 




6 
7 


T2 


LDA 
PHA 


LSH23 




JSR 


MDlfSE 


FILEOK 


EPS 


127 












LDX £0 




LDA 


179 


DELETED 


EPS 


123 




APPLE2C 




S3 




LBV 


LI 




STA 


HAXL 


FREE 


EPZ 


130 




APPLE2E 




OS 


*£> 


LDA 


t0H$V$i v 




LDA 


11 



30 



Pom's n° 33 



sta mm 

RYT OKA 
STA U1NH 
STA HAXH 
LBX £ CLAMP 
JSR MOUSE 

LUA L22 

sm mxL 
LBA £1 

iOJt £ CLAMP 

jss mouse 

IDA £1 

LDX iSET 

JSR HOUSE 

LDX WHOME 

JSR MJUS£ 



JSS FRIHT 

BYT a,iss 

AS (7 ' <- CATS 



AND MOUSE 



ASC 'copyright in June 
isei By 

ASC 'INTERET SOFTXAEE S 

D0B01H.P • 

BMC 

JSR MOH3 

jsr mm 

BYT 1 

BYT 59,20.3.23 
JSR RSCUR 



BYT STS. NOV JUG 
BYT 3TC, BBLCLTC 
BYT STS, ALPHA 
BYT STS, BEL 
BIT ST&, DELFLIj 
BTT STS.IilDFLG 
BYT STZ, LGHFLS 
LDX LS2 
LEW £74 
JSR F1XCLIC 
LDX L2S5 
STX Wctdtt 
TXS 

JSR PSTHT 
BYT 3. SO 

ASC " CATALOG EDITOR 

tex in 



wo 



JSR PRINT 
BYT 7, a 



ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
SRK 



mSHAL 
1 FILE LEK6HT* 
•FILE DELETED' 
'HIDDEN TOKEN' 
CATALOG SORT' 
' BOOT 01SK ' 



etc 

LOA ihd-zx 

ABC £7 
LBX £11 
JSR RCVSRT 

JSR MOOSEPET 

JSR Function 
sec menu 



una 

CPX 

beg 

JSS 

i.nx 

LBA 
STA 
LOA 
STA 
JMP 



index 

IS 

>0 

CH01SE 
THHKY 
KAItJI., X 
TEHP 
HAIKU, X 
TENTH 
t TEHP) 



SIT CAT?! 
BYT CATL 
BYT CATS 
B YT CATH 
BTT SOB 7 
Br J" BOVT 



HBY CUD 
HBY CATL 
HBY CATD 

my 

HBY SORT 
HBY BOOT 



LBY SCi 12, X 
STY HSrl 
HEX 1C?)C1 



FLA 

STA PTH 
PLA 

sta prs+i 

LBY £5 

LOA IPTR1.Y 

STA SIF..Y 

nrrr 

SWF SfB 

LOY 'L 
A3L 

BCC r» 
IDY -f 
STY TEMPO 

JSR HOME 
JSR MOUSEON 

LDA -Z 
JSR COOT 
LOA RIGHT 
SBC tl 
STA STORE 
TAX 

LOA SIP 
BPL CO 2 
LBA " 
JSS COOT 
DCS 

LOA TEtifU 

jss com 

BEX 
BPL CO 
IDA "_ 
JSR COVT 



LBY DOWi 
BEY 

1TY STORF.*! 
IBX TOP 

LOY RICXT 
BEY 

STY HEAE-tl 

LOA -Y, 
JSR COOT 
LOY 10 
STY CH 
IDA -_ 

jss com 
lux 

CPX STORE41 
BNE CI 
DEC TOP 

LBX TOP 
LDY DOUll 
DEY 

STY TOP 
JSR KODSEOFE" 
JSti ttUMtl 
JSR HOUSEON 
STX TOP 



TUT RTGftT 

LBA -3 
JSR COOT 

JSR Housnor- 

LBA " 

LBX STORE 
JSS COVT 
BEX 
BPL C2 
JSR MOUSEON 
IDA •_ 
JSR O00T 
DEC RIGHT 

IDA S1F 
BUS C< 

Lax TOP 

STA CV 
JSS (PC62 
INC CH 
INC CH 
LBA -2 
JSR COOT 
IDA 

JSR COOT 

JSR SFC62 
IHC CH 
IDA "S 
LBX STORE 
JSR COOT 
DEX 
BPL C3 

JSR TEX T 
LBA Fn? 
ADC £3 
TAX 

LDA PTR*i 
ADC IB 
PSA 

BYT PHX 



JSR NORMAL 
IDA 14 
BNE >0 



JSR JWilflSE 

LOA 11 

BYT TT13 

ADR YMOD£ 

Rrs 



UiY HSLOT 
LOA HSTAT,Y 
ASL 
ASL 

BPL MWSEPRT 
JSR MTAS 

jsr imams 



'0 

'1 



-J 

CHGCUR 

-o 



J.SJ? MTAJi 
LEIA $TY1£ 
CUP £tlB 

bos >e 

BSC I CQNE 
QSA £JC0 
JSR COOT 
JSR P1U.1 
JMP >1 

JSR COOT 
LDY MSLOT 
LBA MCV,Y 

LDX Hce, Y 
STA a/1 

STX CHI 
.I-5J! TAB 
JSR PICKY 
CUP iCOSSOIt 
BEQ >0 
CUP £SABLB 
BNE >l 
P.TS 

STA STYLE 
IDA tCVfiSQR 
JHP COOT 



Recapitulation 
VAT & MOUSE' 

Apres avoir saisi cette recapitulation 
xaus m/snile.ur, 
vous la sairieiardensz par ; 
BSAVE CAT A MUUSt, 

A$mr>, rsiona 

0800:20 58 fC 20 SJ FE AD I I 
0806: CO 30 OB AD 71 FC CS 35 
0810 :F0 02 C9 06 FO IF 7.0 SI 
0818:0c 17 OA AS DO D2 CS D3 
0820 AO D3 DO CI 61 CS fi.Q 
0828:04 CF AO C2 CF CF D4 A 9 
0830:00 20 31 DC OA OS EC AO 
0838-C3 CI D2 D4 CS AO E8 BO 
0840 ;AQ C3 CF CC CF CC CE CS 
UB4S:D3 AO AS AO B€ B5 BO B2 
0950;E3 AO BE 00 AS OS 85 56 
0S58:A9 09 85 57 An Of} CO 10 
0860:03 4C DA OE AH DO 07 48 
0868 :A2 00 AO 01 BS DO 07 SD 
0870-.D0 07 E8 C8 CO 28 90 F4 
0878:68 an F7 07 A9 D7 20 AS 
0880 :FC C6 57 10 D7 A2 1C AS 
0888:AO 3D 2E OS CA 10 fA V6 
0890:5i 10 C9 30 9C A9 95 8D 
089B:F2 03 A3 08 BD F3 03 49 
OOAOjAS 9D F4 03 20 00 c3 A2 
QBA8:lD BD D3 17 S3 00 CA 10 
08B0:F8 A2 07 C6 1A CA 30 IE 
OSB8-.A0 OC Bl 19 C9 20 DO F3 
OSCOtAO FS Bl IS C9 D( DO SB 
08C8:AS IA SO 3S OA 8u f« OA 
08D0:49 CO 85 52 DO OD A9 60 
0BD8-.8D 21 OB SD 30 OB 8D 58 
09S0:0B DO 33 A2 07 20 2C OA 
OSES:AS 4F SD FS 04 A) 01 SD 
UBFU-. 78 04 3A 8D 78 05 8D FS 
0SF8-.05 A2 05 20 3C OA A9 IS 
900: flf) PS 04 AS 01 A2 05 20 
OS08-.3C OA AS 01 A2 00 20 3c 
0310:0A A2 06 20 3C OA 20 91 
0318:0c 00 FF 20 3C 2D 20 43 
0920:61 54 S3 20 41 4E 44 20 
0720-.4D 4r 55 53 45 SO 2D 3s 
0930:20 20 63 6F 70 79 72 69 
0338:67 68 74 20 S3 6E 20 6A 
0940:75 6E 65 20 31 39 38 37 
0948:20 42 79 20 20 20 49 4B 
0930:54 45 52 45 34 20 53 4F 
0958:46 54 57 41 52 45 20 25 
0960:20 44 55 42 4F 49 4E 2E 
0969,50 20 00 20 8F OD 20 45 
0370: OA 01 3B 14 03 1 7 20 2A 
0978: OB 64 86 64 87 64 7D 64 
0980:79 64 5C 64 5F 64 5E A2 
099Si3E AS 4h 20 00 OC A2 FF 
0930:86 7C 9A 20 31 OC 03 3C 
0539;k0 AO C3 CI D4 CI CC Ct 
09A0-.C7 AO C5 C4 C9 D4 CF D2 
09A8:A.O AO 00 A2 11 20 48 OC 
0930:20 91 OC 07 3£ AO AO AO 
09B8-.CE CF 02 CD CI CC AO AO 
09C0-.A0 DE AO CS C3 CC CS AO 
09CS:CC C5 CE C? C8 D4 DE c6 
09DO:CS CC C5 AO C4 CS CC C5 
0SD8;D4 CS C4 DE C8 C9 C4 C4 
09E0:C5 CE AO D4 CF CB C5 CE 
09E8-.DE Q3 CI D4 CI CC CF C7 
09F0.-A0 D3 CF DZ D4 DE AO C2 
09F8:CF CF D4 AO C4 C9 03 CB 
0A00:AO AO 00 IS A5 15 OA S3 
0A08.-07 A2 CB 20 45 Of 20 30 
OA10:OB 20 72 OB 90 SA A6 15 
VA18;EU 05 FO 05 20 05 OE At 
0A20:15 SD 2E OA 85 2E BD 34 



Pom's n° 33 



LDA CW 
iSX Cfli 
JHP TUB 



FUNCTION: 



JSB 
BCS 
LDA 

cap 
air 

LDA 
LDX 
CUP 
BEG 
BEX 
BfL 
BHI 
SEC 
SBC 
LSB 
STA 
IDA 
HMO 
STA 
CLC 
UTS 



INPUT! 
>3 

STYLE 
£1NV*1 
RETVRN-H 

cvl 

£5 

1DX.X 

>2 
*1 

FUHCCH/H 
I? 

INDEX 
STYLE 

STYLE 



BYT 7,9,11,13.15.17 
LUX INDEX 

CUP trn 
bus otoeb 

IKK 

CPX £S 
BLT >Q 
LDX Id 

STX INDEX 

CLC 

RTS 

CMP LEG 
BEO MONT 
CMP CFH 

ONE UJTjTJJIiV 

oa 

BPL <0 
IOX £6 
HEX 
BPL <0 

CMP £KTW 
BNE <B 



IDA £4 
STA TEMP 
&VT IMA 
STA VOIX1 
LSR 

STA V9IX2 
STA LOtiGEUR 
JSR SOUND 
DEI. VOIX1 
INC WIX2 
DEC TEMP 
SHE <:0 



'0 



S2. 



LDX VOIXl 
IDr VOIX2 
CLC 
BRX 
BNE Si 
SIT SPKB 
LDX VOIXl 
SCC HI 
BCC H2 
SCC St. 

osr 

BNE SI. 
BIT SPKR 
LDY VOIX2 
DEC LOHOEVR 

bue si. 

SEC 



Ai: 



S7X H1NCLIC 
^TJ'A ptAXCLIC 
BYT ST I, OBLCLIC 
UTS 



LDA KBD 
BUI >0 
BPL KEY 



t.RA £2SS 
STA BBLCS.TC 



LDA KBD 

3PL HBQSOfJE 

SEC 

sta smalm 

RTS 



JSB XHREAD 
LDY MSLOT 
LBA MSTAT, y 
ASL 
ASL 

BPL 30VTOKS 
JSB HWSEFR: 



IDJf HSIOT 
LDA MSTAT, Y 
flpf IHFOT2 
BIT paLCLIC 
BHI >1 
ASL 

BHI INPUT2 

LDX CHI 
CPX KAXCLIC 
BSE INPVT2 

cpx mucLic 

BLT INPUT? 

CLC 
RTS 



iJSE VTflB 
DEC ICUNL 
LDY STORE 
JSR C0OT2 
INC STORE 
BEX 
BPL <B 
RTS 



LDA CV1 

JSR BASCAI.C 

£DY CHI 



STA 

BOB 

BCS >0 

LDA SCUSi 

INY 

TYA 

LSR 

TAT 

LDA (BASL1.Y 
BIT ICONS 
BPL >} 
AND ££3F 
STA tBASLl. Y 

BYT STS.ICONE 

STA seen 

BtS 



JSS COOT 
LDA "$ 



Ml 
PRO 



JMP BOOT 



LDA OR TVS 
ECU £fBO 

Ann **J» 
RTS 



JSR VTAB 
STX CH 
RTS 



FLA 

STA PTR 
PLA 

STA ?TB*1 
LDY £1 

LDA (PTS1,Y 
JSP. VTAB 

ltfY 

IDA !FTR},Y 
STA CU 
STA STOF.E 

INY 

LDA IPTRl.Y 
3EQ PR3 

CUP 1255 
BNE >S 
INY 

BUS PS 

CMP £2S3 
&NS p-8 

Uti 

ban (etk),Y 

TAX 

INY 

LDA (PTR1 , r 
JSR COOT 
DBX 

apt <? 

BHI PSt2 

CMP 
BED >9 
CUP 

SUE >0 
7SR CJKKJr 
JSB CRQCT 
LDA STOKE 
STA CH 
BPL PH2 

CUP "! 
BNE >1 
JSR CRCUT 
BNE PB1 

CMP "4 
BEO >3 

CMP "f. 
ENS: >3 

INC CV 
INC CV 
LDA CV 
BPL PRO 

CMP £252 
BEO >4 
CMP £251 
BEQ >5 
JSS COOT 
BNE PR2 

JSR DRVASC 
STA STR1*1 
IPX £» 

am s jpirX 

JSB COUT 
DEX 

af i 

BKl FH2 

LDX £7 
LDA STSl.X 
JSR COUT 



0A2S:CA S5 2F 
0A3O:DF D9 44 
CA36: IS OE P£ 
0A40;43 OA 4C 
CA4B:£S 55 I A 
0A5O-.1E 00 88 
0A58:30 02 AO 
OhSu-.WC 20 18 
OASflrFn J>5 21 
0A70-.AS IF 10 
0A7B;F£) CA A5 
0A80:10 FA A9 
OAS 8: 22 A4 23 
0A90:A4 21 SS 
0ASS;20 F6 FD 
OAAOlDt 20 Ft 
0AA8:ED C6 22 
OABOiiA 22 20 
QABSiZO IS OB 
OACOsDA 20 FS 
0ACB;DF AS 2C 
r>An();FA 20 IS 
ADS: PR OS 21 
0AS0.-22 85 25 
0AE8:E6 24 A9 
OAF0;DF, 20 F£ 
OAFB:24 AS D3 
OBOOICA 10 f A 
0B0Si£9 05 AA 
QB10:DA 20 84 
OBIS : 29 80 FE 
OBZ0;6t> A4 52 
0B28:10 0€ 2C 
OB30-.20 SB OB 
0B3St0D of 51 
OB40-.20 55 OC 
0B48-.FO A4 52 
OB50:04 85 1C 
DBSS;20 SS OC 
QB60;43 DO 01 
0B6S-.AC F6 FD 
0B70-.8B OC 20 
US7SrJS CS 21 
OD$C:QS £>£> 99 

uses. -fa 30 hj 
0B90:1S A5 IS 

OdaO:1S Ci 95 
0BA8:OB EB EO 
0BB0-.86 15 IS 
0BB8:C9 SB DO 

OBCO;OC CA 10 

QBC8;A3 04 85 
0BD0:95 5A 85 
0BD8:59 E6 5A 
0BED;59 A4 SA. 
OBEB:30 CO AS 
0BF0-.90 00 88 
OBF 8 :A4 5 A Cff 
OC0C:86 55 85 
OC08;00 CO 30 
PC10;8b 8/ AD 
0C18:3D 10 CO 
OC20;52 HI 78 
0C2B;20 30 OB 
QC30tlO EO 24 
0C38tD9 A6 IB 
OC40-55 90 CP 
0C4S;C6 51 A4 
0C50-.2C CA 10 
0C58:C1 FB A4 
OCiC:AD 5 5 SO 
0C(8:20 24 51 
0C/0;2B 64 51 
0C78-.F6 FD A9 
OCSOrAO 4C Ffi 
0C89.-29 3F £0 
QU3Q;60 (d 85 
0CS8:Q1 Bl IS 
ACAO-IS 85 24 



ec 2E 00 

99 OE OE 

02 DC 12 
95 C4 68 
AO 05 Bl 
DO FB AC 
DC 91 
OB A9 DA 
F.i 02 85 

oe j*s de 
20 fff 
DF 20 F6 
SS 94 2D 
8C 9C OA 
AO 00 84 
FD E8 E4 
AS 22 A4 

11 OB 20 
8£ 22 EC 
FD 20 11 
20 F£ FD 

03 A3 DF 
AS IF DO 
20 62 FC 
DA 20 Ft 
FD 20 f2 
AC 2C 20 
20 2F FB 
A5 1A (9 
FE A9 04 
AS 01 1C 

78 7 
6B OB 20 
AS 18 C9 

09 CO 20 
4C 43 OB 
B9 FB 04 
8S IB 20 
C9 42 FO 
So SS IB 
AS 1C Ab 

12 OC BO 
90 4B AS 
Ob FO OS 
38 £9 07 
29 3F 85 
OB OD OF 
FO 04 C9 

06 30 02 
£0 C9 B8 
08 CA 10 
EC CS SO 
2E la SJ 
SB 20 DF 
C£ 2E DO 
IS CA DO 

53 SO 00 
DO EF 2C 
SB DO ES 

54 £4 87 
OC 10 F9 
00 CO 10 
SO 20 3A 

07 OA OA 
A4 52 B9 
81 30 Ou 
E4 54 BO 
IB £0 20 
2C 20 5C 
F4 60 AS 
IB 98 £A 
Cft 98 4 A 

10 04 29 
8a 54 CO 
A4 20 Ffi 
Ffl A 5 02 
20 SB FB 

19 SS 85 

20 SB FB 
85 2C C8 



E3 C8 
OB OE 
C4 BC 
85 19 

19 99 

CC OA 

20 58 
20 F6 
2C AA 

20 PS 
FV Gfl 
FO E6 
A? 22 

A3 DA 
24 A3 
2D DO 

23 88 
59 FC 

21 A9 
OB A3 
CA 10 
20 F€ 

24 AS 
SS 24 
FD A9 
FC E6 
F£ FD 
AS 19 
00 4S 
DO 05 
FB 04 
OA OA 
58 OB 
IB BO 
F£ FD 
20 F S 
BE 18 
SB OC 
03 CJ> 
AS 42 
IB 4C 
28 AS 
1C A2 
CA 10 

4h as 

18 18 
11 AS 
8A DO 
AZ 00 
FO 04 
Fl A2 
DO E8 
53 4A 
OB Cb 
F5 AS 
OB 2C 
90 00 
30 CU 
38 60 

£0 £D 
A3 FF 
OS 38 
OA A4 
10 03 
78 07 
OA 30 
D3 E4 
5B FB 
OC E6 
1C 20 
BO 04 
AS Bl 
3F 91 
£0 20 
FD A3 
49 BO 
B£ 24 

1A AO 
C8 Bl 
Bl 19 



Pom's n° 33 



STft J 
STRl 



'3 

WT3 



DEX 
BPl itS 
BIT MSLOT 
3EQ PRJ 
JSR HTAfl 
LDA LJSA&LE 

jsb raw 

1TA 

ABC P7P. 
TAX 

XCA PTiWJ 
ADC £0 

pjn 

bst pwf 

A-SC ' .-eifird - 
asc "COIAIAC " 



STA Cfl 
jut rnmc 
TAA 
RTS 

JSS LS 
JSR DEC2S5 
JMP NORMAL 

BYT £TZ,PDEC-U 
STA PDEC 

LDY £0 
r.m pdrc 

SEC 

SBC £100 

STA rose 

IDA PBEC-rl 
SBC IS 

3TB tDEC+1 

see JI 
INT 
BNS <0 
IDA PDEC 
ADC £100 
STA PDEC 
JSR OOT2 
LDY L0 
IDA PDEC 
-*GC 

sec sio 

BCC >3 
3TA PDEC 

ihy 

BCS <2 
JSB OL7T2 

ioy pose 

TYA 

AND 11$ 
ORA £SaO 
JMP COOT 



JSR HIND 
BYT 1 

BYT 1,57, 3,23 
JMP RECUR 



JSR F1XCLIC 

LDA I 
LDY £$34 
LDX LfSB 

job nysit 



'2 



JSS ROMS 
JMP PRINT 



JSS HOM3 
JMP 1H1T 



JSR HIND 
BYT 2 

BYT ll,3B r S, 16 

JSS PRINT 

BYT 9.22 

BYT 251, 1 i IW 

BYT 252 

BYT 2SS, 14, 41 

ASC ' Ojc ' 

BRK 

JMP PRINT 



JSS 
JSS 
BCC 
CMP 
SHE 
JMP 
CMP 
BSE 
JSP 
JKP 
irm 

CUP 
BLT 
CMP 
BGE 
CUP 
Sfffi 
LUA 
iSMP 
BLT 
CMP 
BGE 
BIT 



RSCUfl 

INPUT2 

>4 

£ESC 
>2 

QUIT 
IRTN 
<D 

HOM3 
CLIC.OX 

evi 

£8 
<B 

LIS 

<e 

£14 

CHI 

±41 

<1 

£45 

<1 

<3 



LUX tlJ 
£DA £13 



jsr mm 

BYT 128 

BYT 15, 10. 8,16 
LDX t>£ 
IDA £42 
JSR FIXCHC 

JSR PRINT 
BIT S, 14 

ASC "drive select: 1 

BYT ZJJ, 11,22 

ASC - DRIVE NUMBER 1 

ASC " DRIVE NUMBER 2 

BRK 

IDA DRIVE 
ASL 
ADC £9 
LDX £15 

.TSR REVKRT 
JSB HSPBT 

JSR INPUT? 
BCC *4 

me imtn 

BSE >2 
JSR MUMJ 
JMP CLIC.OK 
CMP £ESC 
SHE >3 
JMP QUIT 
LDA DRIVE 
EOR £3 
STA DRIVE 
BPL OK 

LDA STYLE 

CUP 

BEff 42 

LDX CV1 
CPX £11 
REQ >S 
CPX £13 
BJJE CO 

LDX CHI 
CPX £22 
BLT <0 
CPX £3) 
RSR <B 
CMP ■> 
BLT <1 
AND Cf3F 
STA STYLE 
BHE Cj 



JSSt ALAHH 
BYT », 14 

ASC " boot Its*. ' 



BYT 255,12.24 
ASC "VERIFY BOOT" 

JSR ALRM 

JSR HOME 
LDA i 
TAY 

LDX £25S 
JSR M0S1C 
JMP BOOTU 



LDX £fl 
tXA 

SIA LENOHT.K 

STA STAST.X 

HEX 

SHE <B 

DBS 

six Lsnrie 

BHE CATlt 



LDA L2SS 
STA fiJDFLS 
BHE CATN 



LDA £2ii 
■ STA DELFia 



JSR ROCAT 
BYT ST2.HRTOK 

JSS PP-TCAT 
JSR CATTCS 
IKS <4 
BSC XATQK 
JMP QUIT 



LDA BUFFER+1 
STA TRACK 
LDA BVFFER+2 
STA SECTEVR 

LDY iO 
TYA 

JSS SR7RS 

BCS ESOBOS 
BTS 



JSR ALARX 
BYT S,14 

ASC ' Uisx error ' 

BYT 2ii,ll, IS 
ASC "TRACK ; '- 
ASC "SECTOR; " 
ASC "QMS 
BRK 

LDA CHE 
LSR 
REQ >J 
JSS PRINT 
BYT 13,17 
ASC 'wltc' 
BRK 
BCC Jj 

IMC CV 
LDA CV 
LDX 128 
JSR TAB 
TtA 

JMP PRE 

JSR PRINT 

RYT 13.27 

ASC "SEAO" 
BAH 

LDA £10 

STA CV 

LilY TRACK 

JSR <0 
LDY SECTEVR 

JSR <S 



OCASlFO 7E 
0CBO:EB C9 
0CB8:AA C8 
0CC0-.1Q FA 
0CCS:C9 DE 
0CD0:62 FC 
0CDS:C9 M 
CEO: 3D CS 

OCES; OS Ef 
OCF0;jLh C9 
0CFB:18 ZD 
0D00:0C 8D 
QDO$:0t> 20 
0DlO:S4 AS 
OD1B;FO CA 
0D20:20 6B 
QD2$:99 €5 
0030:49 DA 
0D3B;7S 63 
0D4D:D4 CI 
0D4S;9A £0 
0D50:4C 84 
ODSQlOO AS 
ODSOlAS 15 
0D6S-.CS DC 
0D7Q-.44 20 
SD78;3S EH 
QDSQlBQ F6 
0D8B;29 OF 
0D30:45 OS 
0D99:2A OB 
ODAQlZO sr 
QMS; OS 02 
ODB0:OC 09 
ODBSsOE 29 
ODCQlJl OC 
ODCSlOC A9 
0DD0:2B 15 
ODDS: 90 II 
ODEOiOO C9 
0DE8:4C C8 
0DF0.-E4 C9 
DDFS.'Ef AS 
DEOQsZD DO 

osos:so of 

0E1O-.2A 20 
0F.18;18 f4 
OgSQ:€S SO 
oeZ8:ao c« 
DS30;D5 CD 
0E3S:DE AO 
0E4O : CE DS 
0E4B:A0 00 
0E5Q: OF 20 
0E58:12 OC 
0ESO;20 SF 
OES8:D0 03 
OEVOlOJ 85 
0E7B:5E FO 
0ES0.-04 EO 
OESS.-ie 90 
0E90:33 SO 
GE9S:D4 20 
0EA0:£F 6F 
0EA8:FF OC 
Oi'SO.'flS AO 
0EB8:C2 CD 
OECOrAS FF 
0ECB:A2 00 
OEilO;93 CA 
OEDS;0A A 9 
OEEOtFF SS 
OEE0-.2Q D7 
OVFOTCS 7C 
0EF8:85 04 

npoojoo 9S 

OF09:20 AS 
OF 10: 73 €B 
0F1S:FF OB 
OF20:A0 BA 



C9 FF DO 
FO DO OF 
Bl 19 20 
30 Bl VB 
DO OC 20 
A3 2C BS 
JO 05 20 
AS FO Of 
25 ES 25 
FC FO OS 
FS FD DO 
34 OD A2 
rff FD CA 
07 BD 3C 

10 r? 24 

03 A9 43 

19 AA AS 

£0 20 20 
72 64 C7 
C3 AO 85 

20 44 OD 
FE 64 45 

4 4 39 E9 
E3 00 85 
EE AS 44 
87 0!) AO 
CA 90 OS 
20 8 7 OD 
09 BO 4C 

01 01 39 
20 9F OD 
OD 4C 79 
OB 26 OB 
16 FD OE 
20 £F SB 
A2 OD A9 
00 AO 34 
20 2A Ob 
C9 9B DO 
8D DO FO 
OB A5 1C 
OF SO EO 
;h ?<> 
DB 90 BO 
IE 0% 10 
00 OC 20 
72 (9 76 
iSS C3 74 
112 cs as 
C2 C5 D2 
Ci 02 CS 
CP C2 PS 
AS 02 OA 
45 OC 20 
90 19 C9 
OD 4C CO 
4C AO OD 

02 10 9F 
EF At 1C 
Od OC P2 
CC EO 26 
CD 29 3F 
AS OD 09 
74 20 Ki 
18 D6 C5 
C2 CF CF 
20 58 FC 
20 2S 15 
BA 3D 00 
DO F) CA 
FF 85 5F 
5C 20 EF. 

11 20 1C 
4C AO OD 
AD 02 SO 
20 BS Bl 
OD 09 OE 
20 65 72 
13 D4 D2 
FE D3 CS 



03 CS DO 
CB Bl 13 
T6 FD Gfl 
FE FO 07 
62 FC 20 
24 10 CD 

62 FC DO 
C9 A3 DO 
AS 25 10 
C9 FB 1*0 
A7 20 84 
OS BD 33 
10 F7 30 
OD 20 FS 
52 FO OS 
20 F6 FD 
1A 69 00 
20 3A 65 
CF CC CI 
24 86 44 
20 S3 OD 
B5 44 AO 
64 85 44 
45 SO 03 
69 64 B5 
00 A5 44 
SS 44 CO 
A4 44 98 
FS FD 20 
03 17 4C 
4C 91 OC 

05 20 45 
10 20 91 
20 FC FF 
20 00 4c 
30 20 00 
A2 9B 20 
20 12 OC 
03 4C AC 
20 SF OD 
C9 OS 90 
C9 OE DO 

in dp (?« 

20 45 OA 

A2 10 A3 
SI OC 08 
SS 20 73 

FF 00 16 
CS AO CS 
AO Bl AO 
DS C5 AO 
D2 AO B2 

63 B9 A2 

21 QS 20 
8d no Of 

OB CS SB 
A3 02 43 
AS IB CS 
EO OB FO 
A6 IB EO 

bo cs cs 

8$ 18 DO 
OE 20 62 

6 9 13 6n 
D2 C9 C6 
D4 W 20 
AS 00 AS 

4c co ce 

32 3D 00 
Hb bE DO 
DO 04 A3 
OF 64 7C 
14 BO FB 
AD 01 SO 
85 OS AO 
BO 01 
20 64 
72 SF 72 
CI C3 CB 
C3 D4 CP 



60 
69 



Pom's n° 33 





JSR ALRM 




LDA BVFFE8+1 




STA 


SECTEUS 


OFZBsDH 


■ 




CJ 


CD 


C4 


AO 


AO 




JHP INI7 




CMP £SU 




LDA 


3UFF£(H2 


0F30:A0 


HA 


FE 


GO 


AS 


OC 


iA 


F0 








S£Q GOQDQS 




JStt 


riLETYPS 


• 1A 


26 




015 


CO 




77 


1? 








JSR ALARM 




STA 


TEHF1 


0F40:CS 




£5 


C'C 


so 


i y 


£V 


E 




JSk ALARM 




art m 












24 


SB 


0£ 


98 




BYT 9,14 








BEQ 


>J 


0f-4S:AS 


ti 


A2 


IC 




A ' uri t~.fi f.A T a } fify * 




HVT 35.5 17 ?T 




CK? 


■? 


0F50:4C 


OA 


rs 


50 


91 


cc 


00 


18 




BYT 355 13 34 




A5C "NOr A DOS 3.3 




BEQ 




0F5S zD2 


CS 


- r 




Oft 


AS 


OA 


if 




ASC "ARE ¥OV SORE*" 




BISK" 










A J 

M 




^. b 


jr 


OF 


mj 


OS 








BSK 




LDA 


/TSL 


QFbh:2Q 


46 


□F 




C2 


0£) 


4 


79 








JSB ALUM 




ST* 


flAT>*l 












20 


?7 




JSK AlMt 








JSR 


AC££S 


0F70:09 


20 


J1S 


OD 


J 9 


0E 


* 








LDA 


TSL J 13 


0FTtt72 


t.% 






.?fl 


£3 


61 


74 




\J5K PRINT 








STA 


TRACK 


0FB0;C1 


ic 


er 


f7 


fF 


OC 


18 


CI 




BYT 9,21 




arr srerfse 




LOA 


TSL^13 


QF88: D2 


C5 


AO 




_\- 


03 


A J 


D3 




ASC *XRITING* 




arr Are, rnc^tl 




fTA 




UT Jl/ ■ U J 


22 


C5 


CO 


gfl 


C2 


CD 


2C 




arr 2Si 








JSR 


ACS9E0 


^Fdfi . fit 




09 


1 5 


D7 


D2 


•- j 

~ j 


J 1 








nvr r>n rrn 
























LDA .. 






LOX 


£3 


0FA0:C9 


CS 


C/ 


FB 


A " 


1 i. 




•J '> 




it rfi J n ala 








LDA 


temp: 


0FAS-.8D 


01 


SO 


AS 




B3 




3A 






DEJCfl 






atp 


•i 


Of BO : 90 


•f 


1 


a ; 


FF 


i 5 


85 


E6 






rjr 


B£S UXTTMOr 




SGE 


>2 


Uc DO . UL 


■ I 


■ 


CS 


05 


Cff 


02 


Q 




STA SECTEUR 




ASt, 




CHP 


■3 


OFC0: Eft 


.4 $ 




£5 


s! E 


4£ 


21 


J if 




RYT Q£A 




SCC TST 




BEQ 


>2 






















PHP 




LDX 


El 


0FC«:i7 


A0 




3 1 


3 5 




OC 


SO 




fl" T A 3 J IF-F Pfl 4 5 














F3 








IHC FREE 


-2 


LDA 


TEMPO+1 


DFDQsEB 


FO 


07 


Si 


CO 


23 


55 








BHE OTH 




ASL 




OFDS :BC 


£« 


20 


FF 


0£ 


ic 


89 


GF 








TUr F-HEE4! 




TAY 




OFEOiAS 


55 


le 


00 


5 C 


ES 


BS 


FA 












IDA 


TSL. X 


OFEi :20 




Off 


41C 


AO 




20 


91 


"0 


IiflX ClJ 




b.ve rsr'j 




STA 


LEj;i«TJj, Y 






f jr 
4 v 




^. ^ 


U r 


rA 


- ? 




Litre 


MfTTTWCK 






LDA 


TSl-1. X 


C5 


A'j 






00 


90 


00 




DEC 








STA 


&BfttBX. ¥ 


DFFB i CE 


ft 


-i 


t n W t ~ ' r_ "u 








DEX 




1000; 31 


jss 


83 


SB 


■■; 


81 




OS 




LOA FTTEUVti 








BEX 




1008: BD 


FE 


BO 


IS 


si 


23 


SD 


00 








SfJI FILEHUM 




flffi 


>J 


1010; SI 


IS 


FF 


80 


i-i 


00 


SD 


01 




SCS >4 


i 






UM 


TSL.X 


101S: 81 


E8 


E8 


EC 


FE 


DO 


E9 


A3 


; 




-5 


JSP CArsffcr 




STA 


STARTS l r Y 


ifilfi . fin 

-I u j^fj * 




00 


81 


g r 


Q 1 


q : 


i g 




LDY £0 

LDA {PTR} , t 








LOA 


TSL-1, X 
















3S 


2 








STA 


START, Y 


J 023 : 1J 


85 


3 - 


64 


5 


AS 




STA BUFFER. X 












1030; DC 


A9 


eo 


85 


B| 


20 


FF 


OS 








API NQD&L 


'3 


IHC 


TEXPOtl 


103S:AD 


:i 


BO 


CS 


Ji 


F0 


21 


20 




BEQ >3 




I«C DELETED 




LDA 


/BUFFER 


1040 :A$ 


od 


(; 9 


of. 


50 


€4 


ftf 


73 




IffY 


/ 






STA 








?£? 


T£ 


^ r - 


72' 


i' 1 ' 


Oc 






NODEL 


IHC FILENVM 


-4 


rw 


TFMpn 












CJ 


AO 


C4 




ffCC <2 
acs <1 




INC PILEN3E 






RDTSL44 












9J 




C4 






LDA FILEHaH 


i 






1054; CF 


£>3 


AO 


S3 








J3P, ADKFTL 


ADr<SlLE; 






I0fOrC9 


D3 




■"' 1 


sr. 


r.7 




4C 








Lor to 




TXA 




JOf 0.-75 


09 




82 


*S4 


03 


€4 


3C- 






-2 


LUA tiUfftUt, X 


ADRFIL: 






i 7C ; 


6 1 


A j 


sc 


i 


37 


SO 


FO 


, 






STA fPTR) , y 




ASL 




i U ' • vis 


\7: 




PS 


Qg 






ts$ 




LDA £0 




tm 




TAX 




T (J/1 * /io 


Lb 


C 5 


J[0 




r ? 






*5 


STA BUFFER, X 




iwr 




LDA 
OSA 


AORTBL, Y 
ADRTBL-H, Y 


l ueii i EB 


A9 


FF 


3 5 


H ':: 










BtfE <5 








WEQ 




1 DSC : hZ 


l"C 


3D 


00 


80 


JF0 


IS 


10 




Jte!ff iSCESS 




SCC <2 




IDA 


ADRTSL. Y 


1098:02 


E€ 


81 


EC 


85 




BO 


A5 








ACS <J 




STA 


PTR 


J: Lr/i hi _ O _J 


20 


4E 


11 


AO 


00 


an 


■OC 












LDA 


ADRTBL*1,Y 


t rtjijj # an 

J. / ^ & ! 9V 


91 


1 9 








CS 


CO 


PDCATi 






IDA FILENVH 




STA 


TTRit 


T fijafl - ? 1 
^ _ :j J # ^ J 


90 


r "l 


B 






£5 


' £ 




JSfl PJllitT 
BYT 9 f S2 




RYT TKA 
ASL 


-a 


CLC 
BIT 


S3S 


J Odo : VA 


AS 


18 




80 


Tj 


SI 


1 A 






TAT 




RTS 




10C0:&5 


?F 


A9 




7 9 


C^ 1 


^ - 


99 




arr tsi 












IOCS: 01 


SI 


85 


05 


24 


5E 


30 


01 


* 




CLC 


ASCEUS: 






1 QDQ i $Q 


65 


5 6 


05 


57 


AS 


55 


20 




LDA LADRSTR 




LOA FILBIBE 




STA 


sctss 


1 0D8 : 4E 


11 


JSC 




AO 


0jf 


flj 


13 




STA ADRTBL 




SBC aSLSTEO 




LDA 


•o 


i n ~t>ji . qq 


00 


4U 


0o 


1/1 






FF 




LDA /ADSSTK 




BYT im 




STA 
BYT 


LSH2Z-H 
1HA 


2 Q£B :F0 


KP 


55 


04 


.4 ! i : 


0J 




/, : 




STA ADRTBH1 




STA FILEDK 
















Sb 




LDX U 


* 






STA 




2 0F0 ; 05 


AD 




■5:7 




f] ? 


14 






LUA £ 








20Fti;JU 


C¥ 


DA 


FO 


46 


C9 


nr 


to 




LDA ADRTBL-2.X 




ST» AORTBL, t 




LDX 


L2€ 


1100:42 


AS 


24 


85 


09 


20 


IF 


BE 




CLC 




STA ADRTBLtl.Y 




LDA 


'V 


110$: AD 


or 




B| 


04 


AD 


so 


94 




ADC £35 




STA FILEmU 




STA 


iccss 




05 


si 




0E 


A 2 




A5 




STA ADBTBL.X 




SIT LGHFLG 




STA 


LSH2211, X 


IIIU; 'SO 


CS 


C J 




:.■ b 


C9 




t'O 




LDA r'j'.- 1 1 ( X 

abc is 




BMr nnrs!. 

RTS 




BYT 
STA 


rim 

SCBS4 


1120:02 


A2 


01 


A5 


5 7 


OA 




BD 




STA ADRTDLtl X 








SM 


ICUJltl.X 


1128:00 


94 


99 


I 


92 


BD 


FF 


93 




IAUT 








OEX 




2230:99 


00 


92 


CA 


CA 


3Q 




BD 




JJWf 




STA rEMFC 




She 


<0 


1138 ; 00 




93 


01 


93 


BD 


* * i 


S3 




CPJf £234 




STA TBOP011 




STA 


LBH21+i 


1 1 ^ u * " 


lid 


Qt 
JJ 


— D 


5 7 


1 \ 


80 


85 




BKE <0 




LOA TEXFO 


t 


LDA 


L>2 


J 1 48 * 09 




S€ 




Hfl 


h h 


OA 


8 




IDA it 

STA ADRTBL , X 




JSK ADRFIl 
















BCS <0 




LDX 




HSC-.BS 


0C 


81 


IS 




31 


Ft 


3C 




r^i insnu t v 
5TA ASS TBlff It A 








LDY 




USSlBS 


tm 


81 


•3 




99 


01 


S2 


' 






LDt £3 




DEY 




lieO:8S 


1A 


18 


24 


3| 


(0 


BD 


55 




LDA LS11 




LOA (PTS),r 




JSR 


COHPtlTE 


ll€BiC0 


A9 


4F 


b;j 


51 


07 


a 


SB 




STA TRACK 




STA BUFFER, Y 




IHX 




1 1 70 ' 


7 


A*? 


1A 




- ^ 




55 




LOA LI 




DEY 

an <e 




IHX 
IHX 




117 Si CO 


-r,-; 


51 


07 


Jyj 






~,:C 




STA CHB 








LDA 


123 


1180; 9D 


51 


6? 


Zh 


Dfl 


EE 


SD 


51 




LDA /uurfrK 








JSS 


TAB 




A9 


i« 


AS 


AS 


A4 


SO 


sa 




stji oATA+a 




BEQ >A 




tflA 


'C 


1190;2Q 


A3 


ii 


ES 


£fl 


Ei 


AS 


l i 




JEM ACESS 




STA TKACg 




JsR 


<™n- 


1198 ;2Q 


SB 


oc 


.'■•J 


SC 


20 


W6 










LOA BUTFERtJ 




MP 


RSCVR 


llA0:tC 


2ft 


as 


Se: 


DO 


11 


S-J 





34 



Pom's n° 33 



AJ 



-0 



STX Al+1 

srr h2*l 

JSR FLOAT 
JSR ARC 
LM £0 
JSR FIOAT 
JSJi SIGNS 

JSR A(HT 
LDA 10 
JSfl FiOAT 

jsk siske 
jsb divisk 
jsh jwr 

JSR AUG 
JSSl SIGKE 
JSR INTEGER 

Lax rAc 

R'HS 



JSR DRVASC 
STA CATOSg 
JSR ENTER 
BYT 3,2 
ASC •"• 

BYT 253, 1 S, 'c' 
ASC 1 catalog disk 
ASC • • 

BYT 253, IS, - f 
SEX 



SJT 

nttr si 
mja rtLEvx 

STA FILFUBE 

IDA DELETED 
PHA 

LDA LS60 

ST* PRC! 

LDX £5 

JSS PSGO 

r.fu f.&ZA 

sta pam 
pla 

SSSj DELETED 

JSP PRINT 

BYT it,i 

ASC "FILES :" 
BIT 25J,t,SPC 
ASC "DELETED: • 
BYT 2S3.5.SPC 
ASC •FREE.-' 
BYT 253. f, SPC 
ASC "NUMBER: " 
flfilf 

LDX FILEOX 
BNF. >B 
■JSR INVERSE 
ID* til 
JSR LS' 

t i:a £2f 

LDX DELISTED 

SHE *B 

JSR IHVERSE 

LDA FHEEtl 
STA PDBCfl 
LDA £J8 
LDX FREE 
JSR IS 
JSR DECS i 2 

LDA FIXED* 
IWR PBTY7AT' 

TJDf 

ISA £53 
JSR LS- 
J3fl AJCEWJ 

JSH ALAHM 

sit s, ii~ 

ASC 1 eatalogr 7 

flyr JSS, 1 -J, 22 

ASC "NO FILE OK DISK" 



FRTCAT ' 



*1 



JSH UK) 



bit wrk 
jj?: >,' 

asr J, W 

ASC '< mevi/lff > ' 
BRK 



LDA 
JSS 
LDA 
LDX 
IltX 
JSR 
JSR 
LDA 
JSS 
LDA 
SEC 
SBC 
BEL 
LDA 
TAX 
TXA 
CMP 
BUS 



£20 

VTAB 

LS2 

FILEMJM 
Li ■ 

ASCENS 

15 

VTAB 

ts 

£0 



>3 



SEC ICOHC 

JSR AiMfiL 
BCS >3 
JSR fRTFILE 
IHX 

mc cv 

LDA CV 

cmp m 
sec <i 

MA CV 
STA TOR 
ISA tlS 
STA BOWK 
USA /2 
JTA £EfT 
LDA '£34 
STA SIGHT 
J3K HOME 
JSK StBZF 
BIT SETCUR 
SHI >0 
JMP HSPRT 
JHF RSCOS 



STX STORE* 1 
LDA CV 
LDX L I 
m STORE 
JSR TAB 

LDX LO 
SIX IEHF 

LDA tfTH), I 
BPL >0 

BIT DELFLG 
BUT 

cec cv 
jwp >» 

DEC TEMP 

LDX L4 

JliA .Sttfnl, x 

JSR COO? 

DEX 

BPL <B 

art! >J 



ASC " LED ' 

LDX 14 
BIT ISNFLC 
BPL >) 
JSR SFCIB 
JHP >1 
JSR OVTSPC 
BEX 



BPL <rS 

LDY 12 
LDA IRTRI.r 
PHA 
BPL >2 
LDA »'» 
BNE >3 
LDA LSPC 
.Tsa mm 

PLA 

JSR FILETYPE 
JSR OUT 

LDX L$21 

LDA (PTRI , r 

JSR DEC25S 
JSS OUTSPC 

LDY L3 
LDA tFTRS.Y 
CMP tSPC 
DCS >f 

cmp Li it 

ALT >1 



BIT 
BPL 
BIT 
BH1 
EOR 
BOB 
SHE 
AND 
CMP 
BSE 
ADC 



ICOHE 

if 
lsco 

£$TF 

ism 

>7 
LSCO 



IKY 

CtT 132 
BCC <5 

LDA tPTR] , y 
BIT TEMP 
BPL >B 
LDA UPC 
J Ot7T 

UK HZ 
SIT LGNFLG 
BPL >S 
DEC STORE 
LDA STORE-H 
■JSS ADRPRT 
LDX £S2 

BIT ICONE 

BPL >3 

JSR REVERT+3 

tfBt STOPE+1 
F-TS 



ASL 
TAX 

LUX £13 
STX 3^MP 
LDA START, T 

ora soasm, r 

BEQ >0 

IDA "A 
JSR AL 

LDA START+1 , Y 
LDX START, T 
JSR PRAX 
LL\A -, 
JSR COUT 
BYT STZ, rBflT 

LDA LEHGHT.Y 
ORA LEHGffT* 1 . 7 
BEQ >1 
IDA "i 
JSH AL 

LBA LEK<X!T+1,Y 
LDX LERGtiT, I 
JSR PRAX 
BIT TEMP 
BEO >2 



llASill 20 53 EB 20 S3 EB A9 
llBOlOO 20 93 EB 20 $0 EE 20 
11BS:S2 E9 20 S3 EB AS 0D 20 
11C0:S3 EB 20 80 EB 20 63 EA 
11C8:ZQ 23 EC 20 S3 EB 20 SO 
11D0-.EB 20 0C El A( Al €0 20 
11DS:S4 DC SO F4 11 20 M 0D 
11E0. 03 02 SE FP 1£ SC 20 43 
11ES-.S1 74 SI 6C €F €7 20 64 
11F0:(9 73 (B 20 20 20 FD 12 
11F8:5C 00 2t SC 30 19 AS 7f 
1200:85 BO A5 81 4$ A9 60 SD 
12UU;H1 1/ AZ 03 Z0 YF 16 A3 
1210:20 3D 81 17 68 8 5 81 20 
1218:91 OC 14 IJ4 r.t c:9 cc M 
1220:D3 BA FD 06 AO C4 CS CC 
1228 ICS U4 SS C4 OA AO tV OS 
1230:A0 C£ D2 C5 CS BA FD 0( 
J 238: All CK DS CO C2 CS 02 BA 
1240:00 A6 7F DO 03 20 80 FE 
1248: A3 OB 20 4A 0V A9 LA AS 
1250:81 DO 03 20 BO FE 20 4A 
125B:0D AS 83 85 45 A3 26 At 
12S0:82 20 44 CD 20 57 0D AS 
1268: ?e UO 32 20 80 FE AA A3 
1210:34 20 4A 0D 20 66 11 20 
1278:h6 OD 09 OE 20 63 61 74 
1290:61 SC SF 67 FF 0C 16 CE 
1288:CF AO 06 C9 CC CS AO CP 
1290:CL AO C4 C9 D3 CB 00 20 
1298:C2 OD 4C 79 09 24 SS 10 
12AO:10 20 91 0C 03 19 3C 20 
12A8i6D 6r 76 69 6E 67 20 3E 
12BO100 A3 14 20 JB A3 34 
12B8.-A6 85 E8 20 4k OD 20 66 
12C0:11 AS 05 20 SB FB A5 85 
12ca,38 ES 08 10 02 AS CC AA 
12O0:8A C3 S3 DO 02 C6 SI 20 
12D8:4E 11 BO 0C 20 08 13 EB 
12E0:E6 25 A5 25 C9 13 90 E8 
12ES:AS 25 95 22 A9 13 BS 23 
12r0.A9 02 85 20 At 36 85 21 
12IT8:20 58 PC 20 2F FB 24 60 
1300:30 03 4C 21 OB 4C 2A OB 
1308:86 2D A5 25 A2 04 S£ 2C 
1310:20 SB 0C AO 00 84 £E Bl 
1318:lH 10 ID 24 5C 30 05 C6 
1320:25 4C AF 13 Cff 2K A2 04 
1328 :an 33 t3 20 F6 FD CA 10 
1330iF7 30 17 AO CC CS C-f AO 
133S:A2 04 24 SE 10 08 20 10 
1340-.FC 4C 4A 13 20 7F DC CA 
1348:10 FA AO 02 Bl 19 48 10 
13BO:04 A9 AA DO 02 A9 AO 20 
1358:F6 FD 68 20 07 14 20 7C 
1360:0C AO 21 Bl 13 20 53 OD 
1368:20 7F OC AO 03 Bl 19 C9 
1370;AO BO 14 CS 80 90 10 Si 
1378:5s- 10 OA 24 51 30 06 43 
1380:60 49 80 DO 02 29 /F C<t 
1388:18 BO 02 69 CO 20 F6 FD 
1390-C8 CO 20 90 OR HI 19 24 
1398:2E 10 02 A9 AO 20 7C OC 
13A0-.A2 PA 24 5E 10 09 C6 2C 
13A8:AS 2D 20 39 13 A2 34 24 
13Rf):5) 10 03 20 48 OC AS 2D 
13B8:S0 OA AS A2 OF 86 2E B9 
13UO:00 93 19 01 93 FU 15 AS 
13C8-.C1 20 77 OC B9 01 93 BE 
1300:00 93 20 47 F9 A9 AC 20 
I309:F6 FD 64 2E B9 00 32 19 
13EO-.01 92 FO 14 A3 CC 20 77 
13E8:0C B9 01 92 BE 00 92 20 
13F0:41 F9 24 2E FO 08 A2 08 
13F8:20 7F OC CA DO FA SO D4 
1400:C9 CI C2 D3 D2 BF UJ 29 
1408: 7F AO 07 OA OA BO 03 88 
1410:D0 FA 8$ FF 13 SO 20 9D 
1418:12 20 30 OB 20 OE OC BO 
1420:72 AS 18 A6 1C CO 04,90 



Pom's n° 33 



IDA IS 

'i jss ootspc 

DEX 
BUE <t 
'2 PTS 

FILECDE ASC "TJAflSBT." 



F IIETYPEi 



AJSJ t$7F 

LDY £7 

BCS >J 

osr 

BHE <B 

IDA filecde. If 

ATS 



.KB PHTCAT' 
J5A JKXJSEPBT 

jjs ttimiT 
bgs >i 

i&i srrtis 
LDX cvt 

CP* £« 

ALT JS 
CP* MO 
BG£ 3S 

IDA CHI 
Cfff MS 
BSE CATTCR 
IDA STVtB 
Mfl" CAJTCH 
CMP IMO 
RGF, CATTCH 
F.J1A f-3ii 
SJA TEMP J J 



CTJt 
3«£ 
LiJA 
WX 
BLT 
CPX 
BSE 
BIT 
BPL 
STA 

jsr 

LOA 
STA 
BYT 
ISA 
JSP 
JMT 



t3 
>i 

is* 
>a 

HP. TO* 
J* 

ssccib 

£ CURSOR 
CHGCEJH*J 
*5TJ! ; JVHTOA 

SfJITCAT 



CUP C 
BJ30 QSTt/l" 
CMP ' ' 
3E0 53 
CMP •« 
BEQ >9 

asp ■? 

BEQ CATDJf 
CMP 'V 
SHE CATTCH 

IDA CHJ 
BYT nBJt 
BIT MA 
LOT SILEUSS 
DEX 

lot cs2 

bit moving 
bhi cattch ' 
jsr compute 
st* filehvh 
bpl cattch' 

jsp ocrir 

CSP £ESC 
CMP LFS 



BBO CATDF 

Off £f/i 

BBO CATOP 

CMP £flP 

ase catdh 

CMP LFS 
RES CAIHJ* 
CUP "B 
BB3 CATBG 
(HP "X 

BEO CAtEM 
CUP "ff 
BHE >i> 
BJT (fftHDJt 
BPt ->0 
^rtjK rf&TCAr 

CHP £flZH 
BEO >0 
SEC 

sac isao 

BHI >0 
CUP no 
BSE >tl 
TAX 

LOA F1LEP0S. X 

BPL 

SEC 

BTS 



JSR LIMH 
BCS >1 

BIT Hovwt; 
SPL iU 
JSR EXCH2 
DEC FILEKUM 
JMP CATTCH ' 



JSR LIMB 
BCS <1 
BIT HDVTUC 
BPL >» 
JSR EXCttl 

JW CATTCH ■ 



JSR LIttH 
BCS <l 
BIT HOVISC 
BPi >0 
JSR EXCH2 
DEC FfLEfflW 
BPL CATBG 



bit Hovise 

BPL >B 
JSP GXCH1 
INC riLOiUU 
BPL CATtH 
BHI CI 



ISA FILE/MM 
BBS LIHERB 

cue 

RtS 



IDA FILEttUM 

BYT THA 

CMP FIIEXSZ 

sec <s 



FILEPOS 



:.r..r: .■ 
Lor £*s 

BYT 0, 6, 12, IS, 11, 13, 
35, 41, 41. 51, S3 



LDP. £50 
LDK £230 
IDY L23C 



STA LONGBVfi 
STX VOIXl 

str voixi 

IMP SQUtiD 



S3 
£4 



JSR 
BYT 
BYT 
JSR 
BYT 
ASC 
BYT 
BYT 
ASC 
AJC 
IlfV 
ASC 

tnv 

ASC 
1KV 
ASC 

iw 

ASC 
IHV 
ASC 
BRK 



WIND 

1 

15,30.5. 21 

PRINT 

5. JlS 

■ " catMloq sort ' 
2S3, 4, IUV.3S3 
255, 9, 23 

•1 • 

-- AiPiJADBriCrtI" 
-2- 

•3' 

"- FILE TYPE'" 
»<• 

*- FILE LOCK'" 
"S" 

"- PEHSOKAL'- 
-f« 

"- PURGE DELETE" 



J3g F1XCLIC 



BIT TSEKS 
BPL ASC 
JSR PRINT 
BYT 20,16 
ASC ' negatlf 
BRK 

sub >o 

JSR PRINT 
BYT 20.2S 

JRK 

JJE OSCVFl 

■73R Lli?nT2 
BCS *2 
LVA STYLE 
CMF ** 
BEQ >3 
LDX CV1 
CFX tS 
S££? <B 
CPX 120 
BHE >1 
CMP 

iEC 
SBC >J 
BHI <6 
J3KP t 7 
BLT 3G 

LHP LSPC 
BEO X 

cmp n 

BEE >2 
CMP *Q 
BLT >2 

SEC 
SBC "1 
BPL SG 

CUP t.ttsc 
she 

JW OBIT 

JSR T5ESS. 
JSR NOISE 
BCS SI 



LOU TSEMS 
EQR. L255 
STA TSSHS 
IDA T5Z 
LBX TS 
STX TS2 



1428:18 EO 
143tlliA BO 
1438:40 EO 
1440: < EO 
1448:30 SO 
14S0-.7C 10 
145S-.0S AS 
14dO:A1 r.O 
14£3:CS 4F 
1470:C3 57 
147S:C9 56 
T4aO:AS BO 
1488:30 20 
1450 :4C AO 
14SB:99 FO 
14A0-.95 FO 
14A8:C2 FO 
14B0:D7 DO 
1468:71 OF 
14C0:B0 30 
14C8:3D 3S 
14D0;1S 15 
14DV:2U 3S 
14E0:20 IB 
14B8:03 20 
14e0:14 20 
14F8:10 03 
1500 :F0 30 
1S0S:24 SS 
1510:85 10 
Ji2H:US 18 
1520; 90 FS 
15211:1)5 SB 
1 S 30 :0B A3 
1538: St 00 
1540:29 2F 
1548:0F IE 
1S50;10 SB 
155B:SF €7 
I560;04 20 
156S:A0 CI 
1570:Di C9 
1578:AQ CE 
1580: CI CC 
158S-.CC C5 
1S90:34 AD 
1S3S;CC CF 
15A0:D0 Cb 
15A8;DE 3S 
!fl!)f):M AO 
1SOS:00 A2 
15u0:24 17 
15C8:1R 20 
15D0.-S6 20 
1503:14 1A 
15E0:63 it 
1$E8:12 OC 
15F0:F0 2C 
1SF8;E0 14 
1600:38 B3 
li08:34 C3 
1£10:OS C9 
1(13:10 23 
1G20.QD 20 
1628:97 A5 
1(30: 3C 16 
1(39: 9P OB 
1640;C8 OB 
1648:5C 20 
1€50:1( 85 
1K58:A0 00 
1CSO:FO 11 
leSBiUO 03 
1670:C8 10 
1S78:0S 99 
1CB0:S6 16 
liSV;UD D8 
1690:BD A4 
1S98:1S 15 
16A0:8( 93 



14 BO 
LS A5 
El A9 

fi.i on 

ID EO 

15 8U 
42 3D 
20 AS 
FO G3 
tV 08 
DO AO 
CA AO 
A3 11 
OD CS 
34 C9 
3D C9 
4( C9 
07 24 
Ci SO 
CA CS 
15 10 
SO OS 

17 ce 

15 BO 

ID 17 

15 15 
20 38 
EB 20 

in ci 

P0 30 
SO A5 
A3 32 
86 59 
7D A3 
06 OC 
34 3A 
05 15 
20 S3 
20 73 
PC FF 
CC DO 
C3 CI 
OS CD 
DE 33 
AO D4 
AO C£ 
S3 Cfl 
DZ 03 
AD AO 
C4 CS 
10 A9 
10 11 
6E 65 
00 DO 
20 70 
20 00 
BO ID 
AS 1C 
DO 04 
31 30 
AO IV 
30 90 
CS SB 
29 16 
17 49 
AE OB 
17 SO 
20 ar 
EE OF 
19 BO 
M 19 
C9 AO 
38 E9 
E7 A9 
90 17 

sd ae 

16 BD 
16 85 
15 IS 
AO AC 



14 A5 
IB 30 
FT 85 

23 A6 
36 BO 
67 OH 
67 OB 
FC 4C 
C9 SE 
£3 50 
AS IB 
34 24 

84 95 
9S FO 
SB FO 
8A FO 

C5 FO 

7C 10 

FO OF 

OA BO 

B3 33 

24 86 

85 4C 
FS 24 
F.6 85 
BO F8 
17 Cf 
IB 15 

20 la 

D9 AS 
65 1A 
A2 E£ 
84 5A 
14 AO 
12 18 
20 45 
20 91 
£1 74 
6F 72 
03 17 
CS Cl 
CC DE 
C5 D2 
AD AO 
D9 DO 
CS CC 
OS 35 
CF CE 
DO D5 
CC C5 
2C SO 
20 91 
67 61 
OF 20 
6F 73 
20 2A 
A5 18 
EO 05 

cs np 

B2 C9 

14 CS 
05 33 
DO C9 
20 31 
FF 35 
17 8E 
80 85 
0D A9 
A6 58 
98 16 
FO 15 
DO 04 
SO 99 
20 CO 
08 no 

16 BD 
AA 1 £ 
1A 6C 

15 15 

17 17 



IB C9 
US C3 
2F 38 
IB EO 

19 24 

20 2A 
64 7C 
71 CF 
FO 20 
FO €8 
3A 3A 
86 30 
10 as 
F9 ci 

30 CS 
39 C9 
54 C9 
03 4C 
3b E9 
Off AA 
60 2(1 
10 03 

16 14 
36 10 
4C 16 

24 8 6 
85 10 
BO E6 

17 E6 
85 FO 
C5 SO 
AO E6 
4C DF 

25 DO 
IB 23 
OA 01 
OC 05 
41 6C 

74 ro 

31 AD 
C2 C5 

32 JLD 
CS C3 
C6 C9 
C5 DE 
CF AO 
AD AO 
Cl CC 
D2 C7 
D4 CS 
00 OC 
OC 14 
74 69 
91 OC 
69 74 
OB 20 
C9 5E 
FO EF 
DO 21 
07 90 
D7 BO 
E9 61 
4n ao 
15 BO 
17 AD 
3C 16 
5H 20 
FF 85 
BD 9E 
85 1A 
C9 DE 
A9 20 
90 17 
OE BO 
T6 BD 
BO 16 
85 19 
19 00 
69 79 
17 17 
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Pom's n° 33 



5C: 



PRCO 



SL 

ss 



TRI: 
PA: 



STA TS 

firs 



STA OPTION 
JSR CIIC.OK 
J5K HOH1 
iOA 13 5 S 
5J7L DELFLG 
JSP WCAT 



LEX 

tCA 
STA 

iin 

STA 
LDY 
IDA 
BEQ 
CMP 
BEQ 
CHP 
»V5 
in* 
HNF. 
S£? 

sac 

STA 
INT 
BPL 
LOA 
CPY 
SGE 
STA 
IHY 
BUS 



OPTION 

STl,X 

FTP 
5Ttl,X 
PTE* I 
£0 

(PTR), Y 
>$ 

>s 

ESPC 
>i 

£JW 

>S 

£ffO 

SB*S, t 

<3 

£INV 

£14 

PKGO 

sb+2, y 
<1 



LDA 55, X 

DM 51.X 

SKI 5E»1 

LDA SC&TL.X 

STA PTR 

LDA SORTH, X 

sta rrml 



HBY SI +2 
HBY 52+2 
HBY 53+2 
HBY St +2 
HBY S$*2 
HBY SS+1 



BYT Sl+2 
BYT S2+2 
BYT S3* J 
BYT S4 12 
BYT SS-rl 
BYT St +2 



H&Y ALPH 
HBY HUM 
HBY TIP 
HBY LOT 

hby pc 

HBY PRC 



BYT ALPH 
BUT IBSf 
BYT TYP 
BYT LCS 
BTT ft 

srr pug 

BYT 33, 34, 3,3,0, 
BIT 2,32,1.1,0,2}$ 



BYT 512, TEMPO 

LUX TEMP O 
STX PTLPMm 
JSR j.npffLE 
BCS SUB 
INX 



5S2 
S12 



"3 
ST 
TS 



EXCH2: 



STX TEMPO 
STA STOPS* I 
LDA PTR 
STA STORE 
JSP AOREILE 
BCS END 

IDt 11 
CPY £33 
BEQ PA 
INV 

dda t Jrcwjs j , r 
bit menu 

BPL ?3 

BIT DHL 
BPL >J 

CMP £355 
JHP ST+2 

BIT LOCK 
BUI >2 
AND 1127 
FHA 

LDA (PTRI , I 
AUB t/137 
STA TEMP 
PLA 

CUP TSUP 
JMf ST 

BIT LOCK 
JUfJ. JJ 
CHP L IU 
JHP ST 

ate (era),* 

BOO SL2 
BIT PA 

JSR EXCH1 
BEQ PA 



ALFE: 



PRS1 
'0 



IIK 

loa 
cur 

BUS 
BYT 

RTS 

: 

EXCffI : 

LDA 

ASL 
TAX 
LDY 

-0 LDA 
STA 
LDA 

LDA 
STA 

tm 

BEY 
sue 

RTS 



DOS 
BOS 

FILEMOM 

mi 

ST1, EILEHOH 



£2 

ASRTBL.X 

TZHPQ-fJ 

ABRTBL+2.X 

T£MPO+l 
ADRTSLt2, X 



LDA ElLEhVH 

ASL 

TAX 

LOt £2 

LDA AOKTSl,X 

STA TEKPO+1 

LDA ADRTBL-3.X 

STA ASRTBL.X 

LDA TBKFO+1 

STA ABSTBL-2.X 

HOC 

BNE <0 
RTS 



DEC LOCK 
ERE TYP 



DEC DEL 
BIT TSEHS 
BPL TYP 
JSR TSEliE. 

DEC ALPHA 



BYT SJi, DOS 
JSR TRI 
SIT DEL 

bpl >o 
tot niton 



ADRESSE DEBUT 1 
AORESSE FIN ; 
UWGEUK : 
TMLLE DISK : 



SSOO salt 2MB 
S17FF salt $143 
SEFF SOlt 4035 
ifl SECTEORS 



ASL 


ISM: 17 


17 


62 


62 


60 


53 


r& 


57 


TAY 


1SB0:21 


22 


C'j 


03 


00 


ao 


02 


20 


tDA CO 


KBSiOl 


CI 


00 


FF 


64 


56 


AS 


SS 


STA DE.LETSB 


3«C0:S5 


85 


26 


4D 


ii 


ao 


4B 


ss- 


STA ADRTBL, Y 


1€C8:8S 


56 


55 


2D AS 


13 


85 


2C 


STA ADPTSL+l, Y 


















16D0-.20 


4d 


11 


30 


3D AO 


02 


CO 


BYT SIR, UEL 


1 SOB, 31 


F0 


EJ 


CS 


Bl 


lc 


24 


7D 


BYT STZ.LOOt 


1{EQ:IQ 


25 




7S 


10 


OS 


CS 


rF 


BYT STl, ALPHA 


1€E8:4C 


OB 


17 


21 


78 


JO 


OF 


Z9 


JSR SENT 


1SF0:7F 


IB 


31 


IS 


23 


7F 65 


2B 


1 (FS : SB 


CS 


2E 


4C 


09 


17 24 


79 


I'd! Mil t V, 1 


















BCS <0 


1700.10 


OS 


CS 


46 


■IS 


09 


17 Dl 


1708:13 


Fi 


CC 


30 


Bl 


20 


IB 


17 




1710: FO 


AC 


SS 


84 AS 


5<i 


CS 


BS 


JSR ENTER 


1718:D0 


A2 


St 


fli 


SO 


". 5 


as 


OA 


HYT 3, 7 


17 20: Me 


AO 


02 


BD 


00 


91 


SS 


57 




1128 :BD 


02 


81 




00 


81 


A5 


57 


BYT IS}, ft, SWV.3S2 














BOX 


1730: 3D 


02 


SI 


k5 


•is 


DQ 


F.C 


fS 


LOA L25S 


173S:A5 


OS 


OA 


AA 


AO 


02 


BD 


00 


sta shtcur 


1740:61 


as 


57 


ED 


FB 


SO 


9D 


00 
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PASCAL DUBOIH 
VIGHY THYEZ 
7*300 CLOSES 

: LISA 3. 5 
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Programme 

BOOT 

Pour lancer CATS 4 MOUSE, 
f \ yies RUN BOOT el run 
BR UN CAFS & MOUSE... 

10 HOE : IF PEEK (49175) 
> 127 Tim PRINT "80 

C0L0HKES £3MGEE",- «Etf 

20 ds ' oms mi + chrs mj .- 

PRI1/T D5"PR£J" 
40 POKE 1010,0; POKE 1011.3: 

so pone 7es,3i! pane 7<a, 

POKE 770,3 
SO POKE 771,32x POKE ?72 r SB; 

POKE 713,252 
70 POKE 77^,76; FORE 775 r 102: 

POKE 77€, 213 
190 PKllll' DfBftUNCATS t MOUSE" 
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soit aussi capable d'evoluer, 





HyperCard 

La distribution ri'HyperCarri reste 
fioue, en tons cas un peu retardee, 
dc novembre, la promosse passe a 
decemhre pour livraison avec tous 
les nouveaux Mat, Les 
developpeurs restent les 
privileges de ce programme gour- 
mant en memoire : moins de 1 000 F 
pour 360Ko de soft, des centaines 
de Ko de 'stack ware' et la documen- 
tation. Cette documentation est en 
revanche & la disposition de tous 
chez bien des revendeurs... 

3614 

Le Club Apple se positionne un peu 
en retrait par rapport a CalvaCom 
mais a cre^ son serveur en 3614, 
code APPLE. 3614 a 22,20 P/heure, 
voila de quoi attirer les Mini- 
telistes applemaniaques lasses du 
couteux361 5, Aujourd'hui, seulela 
messagerie est active, l'ensemble 
devant fonctionner a l'hcurc ou 
vnus lisez crs lignes. 

Precipitation 

Avec Radius Accelerator, la vitesse 
du MacintoshPlus ou SE est 
multiplies par 4, gain accentue" 
avec l'option coprocesseur. 
L' acceleration a un pnx : 9 900 F et 
4 000 F le processeur 68881. .. 
Couteux egalement(20 000 F) mais 
impressionnant : Radius FPD qui 
affiche 1024 x 864 points sur ecran 
15 pouces. Se connecte dans le con- 
necteur interne du SE. Le tout chez 
P-Ingenierie 224, bid Raspail k 
Paris. 

Vu... 

,.»a Apple Expo (ou plutot Mac- 
Expo) un Michel Polac effraye par 
la micro : la fabuleuse 
demonstration de VideoWorks y 



serait-elle pour quelque chose ? 
Plusieurs mcgas pour en mettre 
'plein la vue et les oreilles', mission 
accornplie. 

Recherche attribute 

Pour composer et mettre en page 
Quark Xpress — en francais — fait 
un pas de plus : pour Mac Plus, SE 
ou II et toutes jmprimantes ou 
photocomposeuses PostScript ou 
LaserWriter. 

Prevu pour l'importation d'images 
numerisees au format TIFF, meme 
en couleurs (on parle d'une pro- 
chaine version fonctionnant avec 
photocomposeuse couleur). Voila 
ce qui manque a nos traitements de 
textes : pouvoir rechercher toutes 
le3 mentions en gras, les mots en 
police Palatino, etc. Problems 
resolu : pour 7500 F ce soft le per- 
mct ainsi que la gestion des cesures 
a la francaise avec exceptions... 
Semble d'une relative lenteur 
(considdrant le materiel) a l'usage, 
les extensions memoires ne sont 
pas un luxe. Toujours chez P- 
Ingenierie. 

Wysiwyg 

Le nouveau mot a la mode. L'ecran 
Viking connu sur les PC dote 
aujourd'hui le SE de 1280 x 960 
points. II est dit rapide et reposant. 
ACEE 4, bis rue de chateaudun a 
Paris. 

PageMaker 

Aldus Corporation annonce sa ver- 
sion 3.0 sur Mac et PC. II devient 
possible de faire des textes impor- 
tants [128 pages au lieu de 16), 
d'"habiller" des images, de gerer !a 
couleur, mais toujours pas de re- 
cherche.. . ISE-Cegos, Tel (1) 46 84 
49 84. 



Ouverture 

LSD Developpement a Lille pro- 
pose un accessoire de bureau pour 
les utilisateurs de LSD-Compta. II 
permet la recuperation de fichiers 
TEXT : pratique pour preparer des 
ecritures en traitement de textes, 
recuperer des donnees de tableurs 
etc. Chez les concession!! aires 
Apple. Tiens? LSD Compta version 
2.12 permet de revenir en arriere 
dans la comptabilite, est-ce bien 
raisonnable ? Tel : 20 85 04 37 

Mae contre Mac 

Une occasion de faire evoluer le 
materiel. Voici la methode : rendre 
visite a son concessionaire Apple 
avecll 750 FetunLisaouMacXL 
ou Mac 128 ou Mac 512. On en 
ressort avec un Macintosh Plus 
couleur platine. L'ancien materiel 
est donne aune association d'aide a 
l'enfance inadaptee. 

Laser encore Plus 

Les dernieres LaserWriter 
amcricaincs comportcnt unc nou- 
velle version He PostScript encore 
plus rapide. 

Mathematiques 

Un accessoire de bureau chez 
AlphaSysteme a Grenoble pour 
editer les formules mathematiques 
devant lesquelles nos editeurs de 
textes se trouvent bien depourvus : 
accolades sur plusieurs lignes, 
racines etc. Tel 76 43 19 97, Cal- 
vaCom AS13. 

Compiler.,. 

...le Basic Microsoft 3.0 avec le 
compilateur du meme nom. Les 
resultats sont plaisants par la 
rapidite (ce n'est tout de meme ni 
Pascal ni l'assembleur), par la 
compatibility HFS, par les nou- 
velles instructions Else, Endlf, 
Elself, Case... Difflcultes avec les 
programmes utilisant des routines 
assembleur. Revendeurs Apple. 
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aint ~* Minitel est 
un programme 
de transformation 
d'images MacPaint 
T m ou FullPaint en 
images semi-graphiques 
Videotex. II fonctionne sur 
tous les Macintosh 
disposant d'au moins 
512Ko de memo ire vive. 



Jean-Luc c Bazanegue 




Directement inspird du programme 
pour Apple // de Patrice Neveu puhlie 
dans ce numdro, Paint -* Minitel, 
utilise la memo methode de calcut ; 
afin de ne pas doubter las explications 
techniques, nous vous proposons dune 
- pour ccllcs-ci - de vous reporter a 
Particle de la page 1 1 , oil sont exposes 
les diffdrenis points a retenir pour 
1'ecritare de ce genre d'applicarion. En 
fait, la seule difference technique 
notable enlre les versions Apple // et 
Macintosh porte sur le nombre de 
lignes fnrmant Timage 'source' : 192 
pour TApple // contra 240 (commt le 
Minitel) pour le Macintosh. En ce qui 
conceme le resultat, vous avez un 
exemple sur la couverturc dc- cc 
numero 33 de ce que devient la celebre 
Lady d'Apple aprfes traitement ; 
compte tenu des eontraintcs imposdes 
par le Minitel, ce n'est pas si mal ! 



La liaison Macintosh/Minitel se fera, 
cuimiie a Taccouiumee, par le cable de 
liaison que vous possddez 
certainement deja. Sinon, vous pouvez 
le commander direcierrteni a la revue. 
Le raccordement se fait sur Tinterface 
sdrie 'communication'. 



Utiliser 

Paint -* Minitel 

Si la base Uieorique est identique a 
celle de la version Apple //, il n'en va 
bien sur pas dc meme pour la 
programmation et l'utilisation. Le 
'listing' du programme dlant 
suffisamment clair pour Stre compris 
aisdment par nos lecteurs amateurs de 
Basic, nous allons tout de suite passer 
au mode d'emploi. 



Chargement d'une 
image Mac/FullPaint 

Le eliargeiiieul d'une image 'source* 
est obtcnu grace a Tarticle Chargement 
image Paint... du menu Fichier, 
iequel provoque Taffichage de la 
fenette de selection standard, qui 
elle-meme ne laissera apparaltre que 
les documents crdds a l'aide de 
MacPaint ou FullPaint. La partie utile 
de I 'image chargee. decodee et affichee 
correspond a la partie supdrieure 
gauche du document Mac/FullPaint 
(240 lignes de 320 points). 



Inversion de 
I'image 'source* 

En function de la densild - ou plus 
simplement de la nature du contenu - 
de I'image, il peut £tre utile d'en 
inverser les valeurs ; pour cela, vous 
disposer de Tarticle Inversion de 
I'image place dans le menu 
Traitetrient. Pour retrouver une image 
conforme au document original, il 
sufflt dutiliser k nouveau le meme 
article. 

Conversion de I'image 

II convient d'employer Tarticle 
Conversion Faint! Minitel du menu 
Traitement. Une fenfire s'affichcra 
alors, vous proposant un traitement en 
noir et blanc ou avec des nuances de 
gris. Avec le traitement en noir ct 
blanc, seulcs ces deux valeurs 
extremes seront utilisees sur 1'ccran du 
Minitel ; cette nietliode se rdvfele etre 
souvent efficace avec les images 
faiblement cantrastdes. Lors de 
Templui des nuances, une seconde 
fenetre vous propose le choix du 
contrasts de 1 a 500. Par ddfeut, le 
contrasts est de 10 pour les images 
'normales", et 100 pour les images 
inversccs. 
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Pendant le traitement proprement dit, 
un rectangle visualisant le caractere 
concerns' cc deplace rapidcment sur 
l'ecran du Macintosh, alors que le 
resultat s'afnche simultanement sur 
l'ecran de votre Minitel. Bien que la 
presence de ce dernier soit pratique - 
puisqu'elle autorise un controle 
imm6diat du resultat - cllc n'csl 
absolument pas indispensable. 
Les operations peuvent Stre 
interrompues en roaimenant enfoncees 
les touches Commande et '.*. 

Sauvegarde de 
rimage Videotex 

Apres traitement, l'image Videotex est 
en mcmoirc et, si nous voulons la 
eonserver pour une utilisation future, 
il faul Fenregistrer avec 1'article 
Sauvegarde image Minitel. . . du menu 
Fichier. Line fenetre standard permet de 
nommer le fichier qui recoit l'ceuvre. 
Pour une exploitation des images 
issues de Paint •* Minitel avec un 
autre logiciel (serveur par exemplc), 
signaions que le type donne" aux 
nchiers g6n6res est ImMi, pour Image 
Minitel ({'imagination, quand 
mSme...). 

Consultation d'une 
image Videotex 

II est possible de charger rapidement et 
d'envoyer vers le Minitel des images 
Videotex en utilisant I'article 
Ckargemenl & envoi d'une image 
Minitel... du menu Fichier. Dans ce 
cas - et logiquement seuls les 
fichiers de type fmMi peuvent Stre 
$6iectionn6s. 

Exemplc d 1 utilisation 
des images creees 

Ces images seront evidemme.nt 
utilisables par votre serveur actuel ou 
futur mais, cn attendant, il est deja 
possible de 1'envoyer sur le Minitel 
d un correspondant avec le petit 
programme - rustique - suivant : 

DEF1NT A-Y 

Escape$»CHR$(27) 

PR01$=ESCape$+CHR$(57) 

S0H$=CHR$(1) 

E0T$=CHR$(4} 

ENQR0M$=CHR$(&H7B) 

Deconnexion$=CHR$(l03) 

Connexion$-CHR$(104) 



RET1$=CHR$(111} 
MENU 1,0,1, "Fichier' 
MENU l.^^-Ouvrir..." 
MENU 1.2,1." 
MENU 1,3,1 /Quitter 1 
WINDOW CLOSE 1 
ON MENU GOSUB EventUenu 
MENU ON 

ON BREAK GOSUB rien 
BREAK ON 

Boucle: 

GOTO Boucie 

EventMenu: 

MENU OFF 

Nmenu=MENU{0) 

Narlicle=MENU(1) 

ON Nmeriu GOSUB mRchier^en 

MENU 

MENU ON 

RETURN 

m Fichier: 

CN Narticle GOSUB aChargeMinitel, J 

rien.Quitter 
RETURN 

aChargeMinitel: 

ON ERROR GOTO ErreurChargeMinitel 
FichlerMinite!$=FILES${1,"lmMi - ) 
IF FichierMinitel$=" THEN 
RETURN 
END IF 

OPEN FichierMinitel$ FOR INPUT J 

AS 1 LEN=512 
Chainelmage$=INPUT$(LOF{1),n 
CLOSE 1 

OPEN "COM1 :1200" FOR OUTPUT J 

AS 1 LEM=S1 2 
OPEN "COM1:120Q" FOR INPUT AS 2 
PR1NT#1,PR01$ RET1$ PR01$ J 

Connexions; 
tempo#=TIMER 
WHILE TIMERot8mpo#+6 
WEND 
Envois=0 
Boucle2: 
tempo#=TIMER 
PRINT#1,PR01$ ENQROM$; 
WHILE TIMER<lempo#+1 
IF LOC(2)>=3 THEN GOSUB Test 
WEND 

Envois=EnvQis+1 

IF Envois<20 THEN Boucle2 

PRINT#1,PR01$ Deconnexion$; 

CLOSE 1 

CLOSE 2 

RETURN 

ErreurChargeMinitel: 
RESUME aChargeMinitel 
Quitter: 
SYSTEM 

rien: 

RETURN 

Test: 

GOSUB LitCar 



Traitement 



Inversion de ('image 
Conuersion Paint/Minitel 



IFC$oSOH$THEN RETURN 

GOSUB LitCar 

GOSUB LitCar 

GOSUB LitCar 

GOSUB LitCar 

IF C$oEOT$ THEN RETURN 

PRINT#1,Chaine Image?; 

Envols-19 

RETURN 

LitCar: 

C$=INPUT5(1,2) 
RETURN 

Lorsquc qu'une image est selectionnee, 
votre correspondant dispose de 20 
secondes - a partir du moment ou il 
entend la portcuse (signal aigu) - pour 
appuyer sur la touche Connexion de 
son Minitel. II commence! a alors a 
rcccvoir l'image dans la seconde qui 
suit la connexion. Attention : le 
Minitel fimetteur doit 6trc 
'rctournable' {Type IB). 

Sur la disquette d'accompagnement, 
l'application correspondante s'appelle 
Envoi Videotex. 

Programme Basic 

L'application Paint — Minitel, que 
Ton peut trouver sur la disquette 
d'accompagnement du numero 33, est 
ecritc avec la version 3,0 du Basic 
Microsoft et compilee avec le 
compilatew du meme nom. Si vous 
n'avez pas laditc disquette 
d'accompagnement et voulez utiliserle 
programme avec l'interpreteur, Paint 
-* Minitel fonctionnera mais, bien 
sur, beaucotip plus leniement. D'autre 
part, nous avons utilise la possibility 
de IF. . . THEN. . . ELSE IF. . . ENDIF 
de la version 3.0 qui n'est pas toleree 
par les versions antfirieurcs ; si vous 
tics munis d'unc dc ccs versions, il 
vous faudra done faire quelques 
menues adaptations. Ainsi, par 
exemplc : 

HiseAJour : 

IF Drapeaulnvert THEN 

POT (0,0) , TabloauMAJ, PRESET 

ELSE 

PUT (0,0) , TablcauMAJ , PSET 
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EKD IT 
RETURN 

deviendia : 

MiseAJour : 

IF D rapcau Invert TEE1I PUT 
(0,0) , TableauMAJ, PRESET 
ELSE PUT(0, 0) , TsbleauMA 
PSET 

RETORN 



a 



Fichier 



Chargement image Paint... 
Chargement & cnuoi image Minitei.. 
Sauuegarde image Minitel... 

Quitter 



cP-\ 



Programme 
'Paint -> Minitel 3 

Basic Microsoft 3.0 

* le symbole '!' indique la continuity de la ligne. 

'it*********************************** ******* 

'* Conversion, d'images Mac/FullPaint 

'* en Images Semi-grapkiques Videotex 
'it****************************************** 

'* Initialisations 

DEFINTA-Y 

DATA &H4E56,&H00O0,&H3F2E,&H0008 
DATA &HA936,&HA937,&H4E5E,&H4E75 

DATA &H4E56,&H0OO0,&H42A7,&H3F2E 
DATA &h0008,&hA9B9,&h2057,&h2E90 
DATA &HA851,&H4E5E,&H4E75 
DATA 0,4,1,5,2,6,3,7 

'Haut gauche 
DATA 0,3,0,2 

'haut droit 
DATA 4,7,0,2 

'milieu gauche 
DATA 0,3,3,6 

'milieu droit 
DATA 4,7,3,6 

'has gauche 
DATA 0,3,7,9 

'bag droit 
DATA 4,7,7,9 

DIM TableauEnti e re(38),TableauMAJ(4801) 
DIMTableauPoints(39,23,5),TableauDensite(7) 
DIMGris{3) ) Roetanglc(3),T(5) > TabloauHexa(l4) 
DIM DepartX(5),ArriveeX(5),DepartYC5) f ArriveeYC5) 
DIM SupMenus(7),Curseurs(iO) 

Nombr e Li gnes =24 

NombreMots=20 

TableauEntiersfl )=320 

TableauEntiers(2)=l 

TahleanMAJ(n)=320 

TableauMAJ(l)=240 

EOR=10 

top=0 

left=l 

bottom -2 

right=3 

Menu Pom me=l 

Montre=4 

Chicago=0 

FormFeed$=CHR$(l 2) 
SemiGraph$=CHR$(l 4) 
Texte$=CHR$(15) 




EBcape$=CHRSC27) 
FORi-OTO 7 

READ SupMenusfi) 
NEXT 

FOR i=0 TO 10 

READ CurseursKi) 
NEXT 

FORi=0 TO 7 

READ TableauDensite(i) 
NEXT 

FOR i=0 TO 3 

Gris(i)=&HAA55 
NEXT 

FORi=0 TO 5 

READ DepartXCi ),Arri veeX(i ),DapartY(i)J 
ArriveeY(i) 
NEXT 

FOR i=0 TO 14 

TableauHexa(i)=2 A i 
NEXT 

A!=VARPTR(SupMenus(0)J 
A! MenuPomme 

MENU 1,0,1, 'Fichier" 

MENU 1,1,1, "Chargement image Paint.,." 

MENU 1,2,1 ."Chargem en t & envoi image Minitel..." 

MENU l,3,Q,"Sauvegarde image Minitel..." 

MENU 1,4,0," " 

MENU 1,5,1, "Quitter" 

MENU 2,0,1 ."Traitement" 
MENU 2,1,0, "Inversion de 1 image" 
MENU 2,2,0, "Conversion Paint/Mini tel" 

MENU 3,0,l f "Pom'B" 

MENU 3,1,1,"© JLB, CP & Editions MEV J 

— bq.si.24 at 
window close 1 

ON DIALOG GOSUB EventDialogue DIALOG ON 
ON MENU GOSUB EventMenurMENU ON 
ON BREAK GOSUB rien:BREAK ON 

'*****4*********«*****4******** ************* 

'* Boucle pri.nei.pale 

GOTO Boucle 
E ventDi alogue : 

DIALOG OFF 

GOSUB CurseurMontre 
GOSUB Mi seAJour 

DIALOG ON 

INITCUKSOR 
RETURN 
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EventMenu: 

MENU OFF:DIALOG OFF 
GOSUB CurseurMfwtre 
Nmenu=MENU(0) 
Nartiele=MENU(1) 

ON Nrnemi GOSUB mKchie^mTraitementjrien 

MENU 
MENU ONDIALOG ON 
INTTCURSOR 
RETURN 

mFichier: 

ON Narticle GOSUB aChargePaint J 
aChargeMimtel,aSauvcMinitel,Arret,Quitter 

RETURN 

aCharge Paint: 

GOSUB OuverturePaint 

LF NOT Annuler THEN 

GOSUB PaintBitMap 

MENU 2,1,1 

MENU 2,2,1 

MENU 1,3,0 
END IF 
RETURN 

a Ch argeMi ni tel : 

GOSUB ChargementMinitei 
RETURN 
aSauveMinitel: 

GOSUB Sauvegarde 
RETURN 

mTraitement: 

ON Narticle GOSUB alnversioii.aConversion 
RETURN 

aln version: 

GOSUB Inversion 
RETURN 

aCon version: 

GOSUB CouleurOuNoir 

GOSUB ComptoPoihts 
RETURN 

'* Ouvcrture d'tin fichier MacPaint ou FullPaini 
OuverturePai nt: 

ON ERROR GOTO ErreurOuverture 
FichierPaint$=FDLES$Cl ,"PNTG") 
GOSUB CurseurMonUe 
IP FichierPaint*="" TFTEN 

Annuler=-1 

GOSUB MiseAJoor 

RETURN 
END IF 
Annul er=0 

OPEN FiehierPaint$ FOR INPUT AS 1 LEN=51 2 
CLS 

Drapeau Invert=0 

IF NOT DrapeauFenetre THEN 

WINDOW 1 ,"" 1 (9fi,40)-(4T 6,280),4 

DrapaauFBiietre=-l 

END IF 
RETURN 
F!rreiirOi]v«rtrirft: 

RESUME OuvertwePaint 

^^++*^*t**it*i't****t**tt**it**t**t ******* 
'* D&odage et affichage de I'image Paint 




PaintBitMap: 
TotalPoints!=0 

VariableBidon$=INPUT$(512,l) 
PENPAT VARPTR(Grie(0)) 

FOR Indicel=l TO NombreLignes 
MOVETO 0,lndicel-l 
LEVETO 319,Indicel-l 
FOR Indlce2-1 TO NombreMots 

TableauEntiers(Inrlke2+2)=0 
NEXT 

CompteurOctets=0 
BoudeLigne: 

NornhreOctets=ASC(INPUTS(l s lJ) 

IF NombreOctets<185 THEN 

VraiNombreOctets=NombreQctets+l 

GOTO CodeDifferents 

ELSE 

VraiNombreOctets=256-NombreOctets+l 
Va)eurReport-ASC(INPUT$(l,0) 
END IF 

FOR Indice2=l TO VraiNonibreOctets 

IF (Indice2+CompteurOctets+l ) MOD 2 THEN 
TableauEntiers<(Indice2+CoiiipteurOcteta+l)\J 
2+2)=TableauEntiers((Tndice2-t-f 
CompteurOctets+l)\2+2) OR Valeur Report 
GOTO FinlndiceS! 
END B? 

ValeurReportLong!=ValeurReport*256 

IF ValeurReportLong!>327G7 THEN 

ValeurReportLong!=ValeurReportLong!-65536! 

END IF 

ValcurReportCourt-ValeurReportLong! 
TableauEntiers((Indice2+CompteurOi;lets+l)\2+f 
2)-TableauEntiers(CIndice2+ConipteurOctets+J 
l)\2+2) OR ValeurReportCourt 
Finlndice2: 
NEXT 

CompteurOctets=CompteurOetets+VraiNombreOctets 
GOTO SuiteLigne 
CodeDifferents: 
FOR Indice2=l TO VraiNombreOctets 
Comp teiir Octets-Corn p te ur Octet s +1 
ValeurReport=ASC(rNPUT$(l,D) 
IF (CompteurOctets+1) MOD 2 THEN 

TableauEntiers((CompteurOctets+l)\2+2)=f 

TableauEnti e r^(Compt*urOetets+l)\2+2) OR J 

ValeurRepori 

GOTO FinIndice2Bis 
END IF 

Val eurRepur iLong' =Val e ur Report*25 G 
D7 ValeurReportLong!>327fi7 THEN 

Val eur Re por tLong! = Val e u rRe p or tLong! - 6 £5 5 3 G ! 
END IP 

Va1eurReportCourt=ValeurReportLong! 
TableauEntiers((CompteurOcteta+l)\2+2)=j 
TableauEntiersttCompteurOctets+l )\2+2) OR J 
ValeurR eportCourt 

PinIndice2Bis; 
NEXT 

SuiteLigne: 

IF Compt«urOctets<72 THEN BoudeLigne 

FOR Inoiee2=1 TO NombreMots 

TableauMAJ((Indicel-l)*20+(Indice2+l))=J 
TableauEntiers(Indice2+2) 
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FOR Indice3=0 TO 14 

IP (TableauEntiers(Indice2 i 2) AND J 
Tab]eauHexa(Indice3))=0 THEN 

TotalPoints!=TotaIPoiTits!+l 
END IF 

NEXT 

IF Tabl eauEntiers( Indice2+2)<0 THEN J 
TotalPoiiits!-Tota1Pointe!+l 
NEXT 

PUT(0,Indicel-l),TableaaEnLiers(l),PSET 
NEXT 
CLOSE 1 

MI#=((TotalPoirits!/5760)*27)/30 

PENNORMAL 

RETURN 

'* Choix du traitement 

CouleurOuNoir: 

WINDOW 2/'",(l Q4,300)-(408,332),2 

BUTTON l,l,"Noir «t blani",(8,7}-(l-ld,25) 

BUTTON 2,l,"Nuances grisees" 1 (160 [ 7)-(296 1 25) 

INITCURSOR 

WHILE D1ALOG(0)<>1 

WEND 

IFDIAL0G(1)=1 TURN 
DrapeauNoir=-l 
WINDOW CLOSE 2 
RETURN 

DrapeauNoir=0 
BUTTON CLOSE 2 
TEXTFONT Chicago 
MOVETO 8,21 

BUTTON 1,1, "OK" 1 (200.7)-(296,25) 
PRINT "Contraste (1 a 500) :"; 
IF Drapeaulnvert THEN 
BaseContraste$="1 00" 
ELSE 

BaseContraste$="l 0" 
END IF 
BoucleContraste: 

EDIT FIELD l,BaseContraste$,(152,8)-J 

WHJLE DIALOG(O) 
WEND 

Dialogue=DIALOG(0) 

WEDTLE Dialogu©<>6 AND Dialogueol 

Dialogue=DIALOG(0) 

WEND 

Contraste#=VAL(EDIT$<l )) 
JF Contrasted OR Contraste#>500 THEN 
BEEP 

GOTO BoucleContraste 
END IF 

GOSUB CurseurMontre 
WINDOW CLOSE 2 

END IF 
RETURN 

'a****************************************** 

"* Rafralchissemant du I 'Scroti 

MiseAJour: 

IF Drapeaulnvert THEN 

PUT (Q.O^TableauMAJ.PRESET 



ELSE 

PUT (0,0),TableauMAJ ! PSET 
END IF 
RETURN 



-PI 



>**********»****************•**«*******.»**' 

* Transformation en image Semi-graphique 
Compte Points: 

OPEN "COM1:1200" FOR OUTPUT AS 1 LEN-512 

rilINT#l ,FormFeed$ SemiGraph$; 

PENPAT VARPTK(Gris{0)) 

PENMODE EOR 

TEXTFONT Chicago 

Coul e ur Fon dBi a=Q 

C oul eur Carac ter eB i s = 

Chainclmage$="" 

DrapeauArret=0 

GOSUB FcnctrcArret 

GOSUB CurseurMontre 

MENU 1,3,1 

ON BREAK GOSUB Arret 

FOR Verticals TO 23 
IHDECURSOR 
FOR Horizontals TO 39 
ReetangIe(top)^Vertical*l 0-1 
RectangleCleft^Homontal^S-l 
Rec tangl efbot torn ) = Verti c al * 1 +1 1 
Rectarigle(right)=Horizontal' ,, 8+9 
FRAME RE C T( VAR PTR ( R ectangle ( top))) 
S=G 

FOR Bloc=0 TO 5 

Table au Points( Hon zon tal , Verti cal , Bloc )=0 
FOR PointX=DepartX(Bloc) TO ArriveeX(Bloe) 
FOR PointY=DepartY(Bloc) TO J 
ArriveeY(Bloc) 

TableauPoints(Horizontal , Ver ti cal J 
Bloc)=TableauPoints(Hori zon tal J 
Vertical,Bloc)+ABS(POINT(Horizontal*i 
8+PointX,Vertical*10+PointY)=30) 
NEXT 
NEXT 

IF Bloc=2 OR Bloc=3 THEN 
TableauPoi n t s(Hori zon tal, Ver ti cal ,B1 oc}=J 
(TableauPoin ts(Hori zontal ,Yer tkal ,Bloc)*3 ) \4 
END IF 

T(B1 oc)=Tabl e auPoin ts( Hori zon tal , Yerti cal , J 
Bloc) 

S=S+T(Bloc) 
NEXT 

D7 DrapeauNoir THEN 

CouleurFond=7 

Coul e ur Caractere =0 

GOTO SuiteO 
END IF 

Ecart#=(mor2+'m) A 2+T(2) rt 2+T(3) A 2+J 
TC4) A 2+T(5) A 2)-(S A 2)/6y5 
Ecart#=(Ecart#*Contraste#yi 
C oul cur Caracter e =INT((S/6-Ecar t#/2)+ .5 ) 
CouleurFond=INT((&'6+Ecart#/2)+.5) 
IF CouWCaractere>7 THEN j 
CouleurCaractere=7:GOTO Buitel 
IF CouleurCaractere<0 THEN J 
CouleurCaractere=0 
Suitel: 

IF Coul«urFond>7 THEN CoulourFond-7:GOTO 
SuiteO 
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IP CouleurFond<0 THEN CouleurFond=0 
SuiteO: 

Caractere=32i-CABS<TC0)>MI#))+2*(ABS<T(1)>/ 

MI#»+4*(ABS(T(2)>MT#))+8*(ABS(T(3}>MI#J 

))tl6*(ABS{T(4)>MI#))+64*(ABS(T(5)>MI#}) 

Coule u r Fori ti =Ts bl ea 1 1 De n si te( Conl mirFon ri ) 

CouleurCartitL«i J e=Ttib]*;auDeii£>iW 

(CouIeurCaractere) 

IF CouleurPondoCouleurPfindBis THEN 

PRINT#1 .EscapeS CHR$(64+Cou]eurFond); 

Ch aineItnage$=Chain elmage $ +E scape $+| 

CHR$(64+CouleurFond) 

Coul eurFon dBi s = CouleurFond 
END IF 

IF GouleurCaractereoCouleurCaractereBis J 
THEN 

PRINT#1 .Escape! CHR$(80+J 
CouleurCaractere); 

Chaine Im age $ =Chai n elmage $ +E scape $+ j 
CHR$(8U+CouleurCaractere) 
CouleurCaractereEi3=CouleurCara<!tere 
END IF 

PRINT#l,CHR$CCaractere); 

ChaineImage$=ChaineImage$+CHR$CCaractere) 
FRAME RECT(VARPTR(Rectang]e(top))) 
IF DrapeauArret THEN 

GOSUB MiseAJour 

Vertical=23 

Horizontal=39 

MENU 1,3,0 
END IP 
NEXT 
NEXT 

PRINT#l,Texte$; 

ChaineImaBe$=FonnFeed$+SeiniGraph$+J 

Chaine Image! +Texte$ 

WINDOW CLOSE 2 

SHOWCURSOR 

CLOSE 1 

ON BREAK GOSUB rien 
RETURN 

'* Enregintremcnt de limage eemi-graphique 
Sauvegarde: 

ON ERROR GOTO ErreurSauvegarde 
FichierMinitel$=FILESS(0,"EnregistrGr I'image J 
aoua :") 

GOSUB Curse tirMontre 

GOSUB MiseAJour 

IF FichierMinitfil$=""' THEN 

Armuler=-1 

RETURN 
END IF 
Annuier=U 

OPEN FichierMinitelt FOR OUTPUT AS 1 LEN=J 
512 

PRDJT#1 ,ChoincImagc$ ; 
CLOSE 1 

NAME FichicrMinitcl! AS FichierMirtitel$,f 

"ImMi" 
RETURN 
ErreurSauvegarde: 

RESUME Sauvegarde 



'* Chargement d'une image Semi-graphi.qu£ 
'* et envoi vers le Minitel 
ChargeiuentMinitel: 

ON ERROR GOTO ErreurChargeMinitel 
FieMerMiiiitel$=Fn J ES9(l,"ImMi") 
GOSUB CurseurMontre 
GOSUB MiseAJour 
IF FichierMinitel$="'' THEN 

Annu]er=-1 

RETURN 
END IF 
Annul er=0 

OPEN PichierMinitelfc FOR INPUT AS 1 LEN-512 

Chainermage$=INFUT${LOF(l 

CLOSE 1 

OPEN COMlilZOO FOR OUTPUT AS 1 LEN=512 
PRINT#1 , Ch ai n e Image $ ; 
CLOSE 1 
RETURN 

ErreurChargeMinitel : 

RESUME ChargementMinitel 

'*»**•*»*»»*«***»♦*****»*«*****»*»****♦*»*** 

'* Inversion (noir/ blane) de I' image Paint 

Inversion: 

Drape au!nvert=NOT Drapeaulnvert 

Rectangle(top}=0 

Rectangle(leit)=u 

Rectangl e(bottom)=240 

Rectangle(right)=320 

INVERTRECT(VARPTRCRectangle(top))) 
RETURN 

^ ***************************************** * 
'* Sous-programme divers 

Arret: 

DrapeauArret=-l 
RETURN 

Quitter: 
SYSTEM 

CurseurMontre: 
A!-VARPTR(Curseurs(0)) 

A! Montre 
RETURN 

FenetreArret: 

WINDOW 2,"",C1 04 J 300)-(408,332),2 
TEXTFONT Chicago 
MOVETO 32,21 

PRINT "Pour annuls* : " CHR$0 7) " - majuscule / 

WINDOW 1 
RETURN 

rien; 

RETURN 

<******************************************* 



VOUS Cherchez 

desespe>emment un ordinateur, vous vcndcz unc 
souris, vous avez cree un club 7 

Rcndez-vOUS page 29... 
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ivr£e avec une 
documentation claire et 
>bicn ficclcc dc 240 pages 
et deux dis.quett.es, la 
deuxieme version de SideKick 
rcgroupc les accessoires de bureau 
suivants, ia taille memoire en octets 
Clam indiquee entre parentheses : 

* Agenda (2 468) i calendrier 
mcnsuel avec des possihilites 
d'enlrer des notes pour chaque jour 
et d'afficher un calendrier hebdo- 
madaire ; 

« BIoc-Notes+ (10 978) : un mini- 
traitcmcnt dc texts (inspiration 
MockWrite) qui gSnere des 
documents cn format ASCII et 
comporle des foncdons d'edidon et 
de recherche ; 

• Calculatrice+ (6 020) : une cal- 
culatrice professionnellc multi- 
fonctions avec bande-papier 
temoin imprimable ; 

■ Composeur (2 447) : un compo- 
seur telephonique ; 

■ Heure (1 060) : horloge analogi- 
quc (inspiration Big Ben) avec 
aiguille des secondes ; 

• Idees+ (113 057) : un processeur 
d'idecs (inspiration Think Tank) ; 

■ MacPlan (40 139) : un tableur 
avec possibility graphiques ; 

* Memo Listes (2 433) : quatre 
lisles prefiefinies servant d'aide- 
memoire ; 

■ ReadyPrinter (7 013) : un spooler 
qui imprime les fichiers ASCII en 
vous laissant l'acces au clavier et a 
la aouris ; 

■ Terminal (14 224) : programme 
de communication puur modems 
de type Hayes 300, 1200 et 2400 
bauds. Intdgre avec Bloc-Notes+ 
jjour remission, la reception et 
1'edition des donnees. 

En plus de tout cela, I'application 
SideKick offie une version plus 



SideKick 1 ™ 




Editions flEV 



39-51-24-43 



Repertoire 



OQQ 

O DO 
OQQ 



Qneception 
[ Debut ) 
(_Stnn_) 



[Comp.|pffacer| 




Dubackj Alexandre 
Duvivier, Jeen-Fronpais 



Editions I1E\ 



Garric, Daniel 
Gassee, Jean-Louis 
Gates, Bill 

Gourevitcb, Jeon-Michel 

Herz, Olivier 

KA 

L.C.E. 

Laqma S.A, 




Appel pour verifier la date de disponi bi 1 i te du prochafn 
numSro dans les klosques. 



riche et plus elaboree des programmes 
de renseignements personnels, de 
composition telephonique et de 
gestion du temps que ceux founds par 
les accessoires. 

Enfin, les applications Idees+ t 
Configurer Terminal, Copie 
Repertoire, Editeur Memo~Listes et 
PriniManagcr vous rendent un certain 
nombre de services complementaires. 

Nous pouvons regretter qu'il soit 
necessaire de loger dans ie m§me 
lecteur que le tichier systeme les 
fichiers de donnees de SideKick ; uela 
peut vite devenir encombrant pour 
ceux qui nutilisent pas dc disque dur, 
surtout si on dent compte de la place 
prise par les accessoires de SideKick. 

SideKick est avant tout un outil de 
communication. En effet, des 1'appel 
du programme, une fenetre apparail 
(voir copie d'ecran), ou Ion voit que 
I'aspect communication domine, ne 
serait-ce que gcographiquement. 

Un bon exemple de convivialite : un 
clic sur un nom dans la zone 



Repertoire affichc les donnees 
relatives a ce nom, un second clic 
reafflche la liste des noms. Un doable 
clic sur un nom ou une fichc fait 
apparaitre la totality de la fiche en 
mode Edition. Mon seul regret a ce 
niveau est que la barrc des menus 
disparait alors, ce qui interdit de 
couper/colier si, par exemple, I'on a 
entre des donnees au mauvais endroit 
et que Ton cherche a les deplacer. 



L'Agenda 



L'Agenda est biea pratique, surtuui si 
vous avez une activity sedentaire et 
gardez voire Mac allume tout le 
temps, II semble avoir un problems 
avec les system es francais (au moins 
en version 4.0) : en effet, dans la 
presentation hebdomadaire, il n'afflche 
pas le nombre des unites pour la date 
du jour, mais seulement le nombre 
des dizaines... Ii est regrettable aussi 
que la presentation hebdomadaire ne 
soit possible que pour trois semaines 
(semaine passes, presentc et future) : 
on est encore loin de la flexibility 
offerte par ce merveilieux outil retro 
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quest l'agenda papier ! 

Bloc-Notes 

Cela resscmble parfa clement a 
MnckWrite, avcc la possibiliie de 
recherchcr (mais pas de remplacer), 

Idees+ 

C'est en fait un Think Tank plus 
qu'un More. Toutc rubrique peut etre 
ouvcrtc ct deVeloppee en un texte 
complct : tres agreable. Au chapitre 
des imperfections : le remplaccmcnt 
avec intervention manuelle semble ne 
pas marcher du tout (pire, il ajoute 
purement el simplement le texte dc 
remplacement la ou se trouve le 
curseur), sauf s'il est systcmatique ; 
et, dans ce cas, il va soulcmcnt du 
curseur a la fin du texte sans faire un 
lour complct de celui-ci 



Si MacWrite 4.6 pr^sente 
encore des ameliorations, il 
d : un cote rassurant par la 
persistence d'au mains un 
bug, pas de depaysement ! 



pour obtenir 













.,\J> 



La methode 
une bombe 
suivante : 



pans la fenetre v 
de recherche, saisir un mot, 
effacer uh caractere d 
I'aide de Backspace, puis 



tenter do ie reposer par 
Commande-BackSpace. . , 



Autre probieme, mais la 
version 4.6 n'est pas 
responsable, Orthogiciel 2 
semble un peu perdu lors 
d.e.ia reecriture des flchiers : 
normal, il a ete concu avec 
id version 4.5. 



MacPlan 

C'est uuiquement en cpluchant la 
documentation que j'ai decouvert 
I'existence de lonctions dans MacPlan. 
Celles-ci ne sent pas visibles 
facilement (pas de Caller une 
fonction. de Uste des fonctions a 
l'ecran ou d'ecrans d'aide). Autre 
desagrement : quand on ferme 
MacPlan en ayant oublie de 
sauvegardcr 1c tableau realise, celui-ci 
est perdu : il n'y a en effet pas de 
message d'avertissement demandant 
confirmation de la fermeture sans 
sauvegarde, que ce soit apres cr6ation 
ou aprcs modification. 
La possibiliie d'obienir rapidement un 
graphe est bien agreable, mass le 
mode de titrage est tres lourd : on ne 
peut pas, comme dans Excel, 
selection ner a la fois les legendes et 
les valeurs ; plusieurs ctapes sont 
necessaires pour ajouter a un graphe 
un titre, une l£gende, et des 
indications sur I'axe des abscisses. 

Memo-Listes 

Cet accessoire gfere quatre feuillets, 
que Ton fait d&filer comme ceux du 
Calepin : Alarmes, Cartes de credit, 
Chases a faire et Dcpenses. 11 me 
manque, dans Choses a faire, soil la 
possibilitd de facilcmeiil modifier 
l'ordre des choses a faire (donl 
1'nrgence relative varie dans le temps), 
soit celle d'attiibuei a chaque chose a 
faire un numero d'urgence en fonction 
de quoi tout se classe, Je continue 
done a utiliser Excel a cet effet, 
MacPlan 6tant incapable de prendre en 
charge ce classement puisqu'il ne 
comporte pas de facibte de tri. 

Fiabilite 

Je me suis trouve" plusieurs fois en 
panne, soit avec des bombes, soil - 
lors dc l'appcl d'un accessoire avec 
un curseur totalement hlnque : dans 
les deux cas de figure, bien entendu, il 



a fall n rertfimarrer. II semble que ces 
ennuis survienneiil quand on utilise le 
Switcher ; e'est bien malheureux car 
une application comme SideKick est 
riunnaleinenl faile pour rester 
disponible a tout moment en 
arriere-plan grace a un outil tel que le 
Switcher. Ainsi, pour la redaction de 
Particle, j'avais MacWrite et SideKick 
en parallele grace au Switcher ; et j'ai 
rapidement appris a effectuer une 
sauvegarde avant chaque nouve.l essai 
d'un accessoire ou de I'application 
SideKick. 

Conclusion 

En conclusion, SideKick 2.0 est un 
pruduiL seYieux, bien documcntc, ct 
avec des possibilii.es attrayantes, mais 
comportant quelques problemcs de 
finition. Ce que je lui reprochc 1c 
plus, Borland n'y pouvant vraimcnt 
rien, e'est de ne pas pouvoir 1'utiliser 
sur un Mac portable et fonctionnant 
sur batteries, qui m'accompagnerait 
dans tous mes deplacements. En effet, 
un agenda - par cxcmple - doit Sire 
toujours accessible. C'est pnnrquoi je 
vois bien SideKick utilise par les 
personncs travaillant a poste fixe : un 
excellent outil pour sedenlaire. Un de 
mes amis, ayant un Mac au bureau et 
un a la maison, me dit qu'il s'en sen 
souveni a condition de tnnjours garder 
sur lui la disquette avec les fichiers 
SideKick : certes, c'est une solution 
possible, mais qui n'est pas d'une 
grande simplicity ! 

Au chapilre fie la francisation du 
logiciel, on peut regretler que les 
raccoureis n'aient pas ete adaptes : 
utiliser F (Find) pour Rechercher et N 
(Next) pour Suivant n'est pas 
vraiment convivial. II semble aussi 
que le logiciel original n'ait pas bien 
respecte* les nonnes de programmation 
indiquccs par Apple aux developpeurs, 
ce qui expliquerait le bug de Tagenda, 
oil le duffle des unitds manque dans la 
presentation hebdomadaire. 

3 



En 'bonus' sur la disquette Pom's Mac 33, nous avons plac6 un 
'Coucou" sompEueux ecrit par notre ami et collaborates Alain 
Bohec. II afiiohe, outre rheure, la date et la fete d j jour. Si vous 
demarrez voire Macintosh avec la disquette en question, le 



coucou sera lanes' automatiquemem et, dans ce cas, il 
vous taut savoir qu'il est necessaire d'appuycr sur la 
touche'F' (comme Finou Finder) pourensortir. Signalons 
aussl qu'une pressiori sur la souris fail sorlir le coucou ! 
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e systeme de dossiers et 
fichiers hierarchise du 
Macintosh Plus est net- 
tement plus pratique que 
l'ancien systeme MFS. 
De meme, k disque dur est interessant 
pour le nombre important d'ap- 
plications et de documents qu'il peut 
contcnir. Lc problcmc est dc retrouvcr 
l'application dont on a besoin, en 
particulier lorsqu'on a l'habitude de 
travailler avec les dossiers, sous- 
dossiers, sous-sous-dossiers..., on 
lorsque plusieurs personnes utilisent 
le meme disque dur, chacune ayant ses 
propres dossiers. 

Deux solutions s'offrcnt alors : 

• dupliquer l'application dans chaque 
dossier ou elle s'avere necessaire, 
ce qui prend inuiilemeni de la 
place ; 

■ faire la recherche manuelle de 
1'applicai.iou, en preuaiit sum de 
revenir dans le bon dossier lors de 
1'enregistremenL 

Pom's vous propose une troisieme 
solution qui consiste en une petite 
application - 'Appl Search' - de 
quelques kilooctets seulement, done 
dupliquable sans perte importante de 
place. 

La premiere fois, elle vous propose dc 
choisir une application, et par la suite 
elle cherche cette application sur un 
des disques connus par le Mac (en 
ligne), y compris les disques en HFS, 
et la lance si elle Fa trouvee. 

Vous pouvez renommer 'Appl Search' 
a votre guise et, cn particulier, lui 
donncr le mcmc nom que ['application 
cherchee puisque : 

• la recherche se fait \ la fois sur le 
nom et sur le cr6ateur (signature 
comme, par exemple, Ta2n' pour 
InterPom's) ; 

• il n'est possible de choisir que des 



Qtorg&s Zwingdsttin 



RechcrchD Dt ouuerture automatique 
d'applitation 



Uotis auez appuye sur la touche % en m'uuurunl. 

Uous allez pouyoir changer l'application que jc cherche 

et ouure d'habitude. 



G. Zwingelstein 




applications ayant un createur (ee 
qui est le cas de la grantle majorite 
des applications int6ressantes) ; 
• 'Appl Search' n'a pas de createur. 

II n'y a done pas de risque de bouclage 
avec une autre application du type 
'Appl Search' se trouvant dans un 
autre disque ou dossier. 

Si vous desirez changer d'application 
par la suite, il suffil d'appuyer sur la 
touche commande au moment du 
lanccment de *AppI Search'. II vous 
sera propose le choix d'une nouvcllc 
application. Si vous annulcz 'Appl 
Search' redeviendra comme lors de sa 
premiere utilisation. 

Ann que ia recherche soh la plus 
rapide possible, il est conseill6 de 
mettre les applications dans un des 
premiers dossiers dans 1'ordre 
alphabdtique. En effet, la recherche 
dans les dossiers se fait suivant cet 
ordre. 

Note : il existe des applications qui 
modifient certaines procedures du file 
manager. Celles-ci font alors la 
recherche d'u/i fichier dans tous les 
dossiers et sous-dossiers des disques 
formates en HFS, et permettent alors 
a certaines applications non 
compatibles avec ce systeme de 
fonctionner quand meme. Nous 



connaissons en particulier 'HFSOpen' 
dont les modifications de recherche 
automatique sont cammandees par la 
touche option. Avec. les modifications 
de cette application, 'Appl Search' 
peut donner une erreur systeme si la 
touche option est enfoncee, car la 
recherche dans le HFS se fait meme 
avec lafonctionPBHGetFInfo, ce qui 
n'esi pas normal puisqu'une 
application utilisant cette fonction est 
sensie fonctionner en HFS. Done, ne 
pas appuyer sur la touche option lors 
du lanccment de 'Appl Search', ou 
bien appuyer jusqu'au lancement 
effectifde l'application recherchie. 

(3 

Fichier 

'Appl Searchlink' 

; le rtisultat sera baptise 'Appl Search 
;(pardefaut) 

; commence par le fichier .Ret 
Appl Search 

; a/oufe maintenant les ressources 
/Include Appl Search.rsrc 

; termM. 
/End 
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Flchler 

'Appl Search Job' 

Asm Appl Search.Asm Exec Ed ; t 
RMaker ApplSearch.R Exec Edit 
Link Appl Searchlink Finder Edit 

Fichier 

'Appl Search.R' 

* le symbole '/' indique la 
continuity de la ligne 

* 

'resource pour I'application Appl Search 
* 

Appl Search.rsrc 

Type ALRT 
,128 

50 SO 250 450 

128 

444.4 

* DITL de la fenetre d'aterte 
Type DITL 

,128 

4 

Button 

170 150 190 250 
OK 

StaticText Disabled 
10 70 50 390 

Recherche et ouverture automatique 
duplication 

StaticText Disabled 

60 10 130 390 
A0M A 2 A 3 

StaticText Disabled 
140 10160 390 
G. Zwingelstein 

lype DLOG 
,129 

Recherche 
50 50 250 450 
visible NoGoAway 



129 

* DITL du dialog de recherche 
Type DITL 

,129 

4 



Button 

170 150 190 250 

Annuler 

StaticText Disabled 

10 10 50 390 

Je cherche I'application 



c. 



StaticText Disabled 
60 10 130300 

Pour arreter la recherche et revenir au I 
bureau, cliquer sur ++ 
le bouton "annulen 

StaticText Disabled 
140 10 160 390 
G, Zwingelstein 

; resource non purgeable 
Type GNRL 

type et createur ,256 (0) 
.S 

???????? 

; resource non purgeable 
Type STR 
Norn ,256(0) 



,257(32) 

Je ne sals pas encore quelle application jej 
dois chercher et ouvrir.\0D++ 
Vous aller pouvoir en choisir une. 

,258 (32) 

Vous avez appuyS sur la louche \1 1 enj 
m'ouvrant.\0D++ 

Vous aflez pouvoir changer implication] 
que je cherche el ouvre d'habitude. 

,259 (32) 

Desole, je ne trouve plus I'application 
,260 (32) 

Desormais, je chercherais et ouvriraisj 
automatiquement I'application 

,261 {32} 

Vous avez annule. La prochaine lois, je] 

vous demanderais ++ 

quelle application vous desirez ouvrir/ 

automatiquement. 

,262 (32) 

AODPour changer d'application, appuyez] 
sur la louche \1 1 ++ 
en m'ouvrant. 

,263 (32) 

Desole, je ne peux pas lire ce dontj'ai] 
besom; ++ 

je suis hors d'usage! Erreur N° 
,264 (32) 

Desole, je ne peux pas enregistrer le nom] 



de la nouvelle applicationADD 

,265(32) <~-^Sx 
Erreur N° 

,266 (32) 

Le disque est protege en Venture 



Source 

'Appl Search.Asm' 

' le symbole f indique la continuity da la 
ligne 

; programme de recherche el de tenement 
aviomatique- d'application 

G. Zwingelstein 



Include 
Include 

incljde 

incljde 
include 



Traps.D 

HFSMacs.txt 

SysEqu.D 

SysErr.D 

FSEqu.O 

PackMaes.Txt 



Start JSR 



IflitWanagers 



Lit mm, /ype et creataur de I'application par 
defaul 

Function ReadApplHdtes; OSErr, 
CI R -(SP) 
JSR Rea<JApplHdle« 
MOVE (SPJ+.D0 
BEQ @1 

; Erreur lecture rsssources 

; Procedure ShowAlert(SalD1, $tr!02, SW3: 

; Integer: EtrNum: Integer); 

MOVE #£C3,-(SP) 

CLR -(SP) 

CI R -( sp ) 

MOVE DQ,-(SP) 

JSR ShowAlaU 

BRA Fin 

; Teste t'sppui sur la louche option 
; Function TestKey; Boolean; 
@1 CLR.B (SP) 

JSR TeslKey 

TST.B (SP)+ 

B£0 noOption 

; Change is mm et is crsafeur de /'application put 
: detaut 

; Procedure ShowAlert(StrlD1, $<rlD2, StriD3: 
, integer; ErrNum: Integer); 

MOVE *258,-(SP) 

CLR -(SP) 

CLR -(SB 

CLR -(SP) 

JSR ShowAtert 
; Function CetApplHdBs: Boolean; 

CLR.B -(SP) 

JSR OatAppllWfes 

TST.B (SP)+ 

BNE ChanggName 

; ArmulaSon; efface la rvm 

; Procedure SetSlring(h: Handle; theStrinq; 

; SV255}; 
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MOVE! App!NameHdle(A5),-{SP) 
PEA NullString 
_SetSlring 

BRA ChangeNama 

; le nom existe-i-il ? 
rioOption 

MOVE! ApplNameHdle(A5),A0 

MOVE! (AO).A0 

MOVE.B (AQ),D0 

BNE attune 

: Pas de nom par o&tauf : demands un nom 
; Procedure ShowAlert(StriD1, StrlDZ, StrlD3: 
; Integer; ErrNum; Integer); 

MOVE *2S7,-(SP) 

CLR -(SP) 

CLH -fSP) 

CLR -(SP) 

JSR ShowAlert 
; Function GetApplHdles: Boolean; 

CLR.B (SP) 

JSR GelApplHdles 

TST.B (SP)t 

EEQ Fin ; Annule 

; Enreglm le nwmu mm 

; Function WriteApplHdles: OSErr, 

ChangeName 

CLR -(SP) 

JSR WriteApplHdles 

MOVE (SP)i,D0 

BEQ Ratourf inder 

; Erreur pendant I'enregistrement 

; Procidure $howAlert($irlD1, StrlD2, S&7M: 

; Integer; ErrNum: Integer); 



MOVE 


#264,-(SP) 


CMP 


#wPr£rr,D0 


BNE 


@1 


! disquette prot§g6e en 6criture 


CLR 


DO 


MOVE 


#266,-(SP) 


BRA 


@2 


; autres erreure 




@1 CLR 


-(SP) 


@2 CLR 


-(SP) 


MOVE 


D0,-(SP) 


JSR 


ShowAlert 


BRA 


Fin 


Retaurfindef 





retourne au bureau avw message sir 
[application choisie 

MOVE! ApplNameHdle{A5).A0 

MOVE.L (A0),A0 

MOVE.B (A0),D0 

BNE @1 

pas d 'application 

Procedure. SkowAlert(StrlDl . StrlD$ r $trlD3: 
Integer; ErrNum: Integer); 

MOVE #261,-(SP) 

CLR -(SP) 

CLR -(SP) 

CLR -(SP) 

JSR ShowAlert 

BflA Fin 
vneappticaSon 

Procedure ShowAlert(StrlD1. StrlD2, StriDS: 

Integer; ErrNum: Integer); 

31 MOVE #260.-(SP) 

MOVE #256,-(SP) 

MOVE #262,-(SP) 

CLR -(SP) 



JSR ShowAlert 
Fin JSR SetWatehCursor 
RTS ; On Quitte 

; II lam chercner et lancer fappiication 
aName 

; Procedure HLock(b: Handle); 

MOVE.L ApplNameHdle(A5)A0 

_HLoek 
; Procedure HLock(h: Handle); 

MOVE.L Appn"ypesHd1o(A5],A0 

_HLock 

Cherche fappiication 

Fonctbn GeiAppNPefNum (ApplNamoPtr; 
StringPtr; IT /pes: Airay[0.. 1] ol OSType; 
vat Amule; Boolean): integer; 
CLR (SP) 

MOVE.L ApplNameHdle(A5),A0 

MOVE.L (AO)-(SP) 

MOVE.L App!Type?Hdle(A5)^rj 

MOVE.L (A0),-(SP) 

PEA Annule(A5) 

JSR GetApplVRefNum 

MOVE (SP]+,App1VReWUm(A5) 

BNE @1 

TST.B Annule(A5) 

BNE Fin 

; Impossible de trouver ^application sur un des 
;K&fnes 

; Procedure ShowAlertfStrlDI, $trlD2, StrlD3: 
; Integer; ErrNum: Integer); 

MOVE #2S9,-(SP) 
MOVE «S6,-{SP) 
MOVE #262,-(SP) 
CLR -(SP) 
JSR ShowAlert 
BRA Fin 

@1 

; Lance rapplicatim (rowee 

JSR SetWatehCursor 
; Function SetVolfvolName: StringPtr; vRefNvm: 
; Integer): OSErr; 

CLR -(SP) 

CLR.L -(SP) 

MOVE ApprVRefNum(AS)-{SP) 

JSR SeiVo! 

MOVE (SPK.D0 



Un 'bug' du Microsoft 
Basic Compiler 




Si voire compilateur vous affiche, 
sans raison apparente, le mes- 
sage : 

System error 43: File not 
fo unci 

inutile dc chcrcher une erreur dc 
syntaxe daiis le fichier source ; le 
nom dudit fichier comient ties 
piobablement uji caraciere ac- 
centue*. . . 



; Procedure Launch 

MOVE HOASP) 

MOVE.L ApplNam*Hdle(A5),A0 

MOVE1 (AQ) P -(SP) 

MOVE! SP.A0 

Jjunch 

," dakie da longueur mjSe 
NullString DC 



JnitManagers 



; Procedure InitAlt; 
: Initialise les managers 
InitManagers 

PEA -4(A5) 

JnltGraf 

JnttFonle 

MOVE.L #3OO0OFFFF,DO 
_FlushEvefits 
_lnrl Windows 
InilMonuS 
CLR.L -(SP) 
JnitDialogs 
_TEInit 
JnitCursor 
RTS 



; SetWatehCursor 



; Procedure SetWatehCursor; 
; Curseur en forme de montre 
SetWatehCursor 

; Function GetCursor(cursorlD: Integer): 
; CursHandle; 

CLR.L -(SP) 

MOVE *watchCursor,-(SP) 

_GelCursor 

MOVE! (SPjao 

; Procedure SetCvrsor(ersr: Cursor}; 
MOVE.L (AO).-(SP) 
_SetCursor 
RTS 



TestKey 



; Function TestKey: Boolean; 
< Teste appui sur la louche option 
TeatKey 

LINK AS,# 16 

: Procedure GetKeys(var theKeys: KeyUap); 
PEA -16{A6) 
_Ge1Keys 

; Function BitTstfbylePtr: Ptr; WfA/um: 
Lunglnt): Boolean; 
CLR.B -(SP) 
PEA -16<A6) 
MOVE! *4S,-(SP) 
^BitTsI 

MOVE.B (SP)i,8(A6) 
UNLK Ae 
R1S 



ShowAlert 




Pom's n° 33 



Procedure $howAlert(StrlDt, SVI02, StrlDS: 
Integer, ErrNum: Integer); 

A&che la StopAlert dlD 12S aw message o"ID 
; dorwie et da No dcnne (si ran nut) 
ShowAfert 

LINK A6,fr 268 

MOVEM.L D3/A3.-(SP] 
fnilCursor 
; NumSro do ferret* 

MOVE 8(A6),D0 

BEQ @1 
; Procedure NumToStting(theNutn; Longlnt, var 
; 9ieString:Str255}; 

EXT.L DO 

LEA -256(A6),A0 

_NumToS1ring 

BRA @2 
@1 CLR.B -256[A6) 
; Prepare leu chaines da (aierte pour ParamText 
@2 MOVED #4,03 

LEA -268[A6],A3 
i Boucte ties chaines de fa/erte 
m MOVE tO(A6.D3}.DO 

BEO @4 
; Recupere la chains tfID dom4 
: Function GerStrmg(stringlD: Integer}: 
String Handle; 

CLR.L -(SP) 

MOVE D0,.(SP} 
GstString 

MOVE! (Sr>A0 

MOVE! AQ ( {A3)+ 
; prepare pour paramText 

MOVE.L (A0),-(SP) 
; Procedure HLock(h: Hsnde); 

_HLock 

BRA @5 
;chainev>de 

@4 CLR.L (A3)+ 

CLR.L -(SP) 
;demiere chains? 
@5 SUBQ #2,D3 

BPL @3 

Jnsere les chaines dans falerm 
Procedure PammTex!(paramO. parami, 

param2, param3: Str2S5); 
les 3 premiers parametres soot deja stir ta pile 
PFA -256{AS) 
_ParamText 
; Unlock les chaines tie falerte 

MOVEQ #2,D3 

; Boucle de Unfoeft ties chaines tie iaieste 
@6 MOVEl -(A3) ,00 

BEQ @7 
; Procedure HUnLock(h: Handle); 

MOVEl DOAO 

JUJnLocK 
; demiera ehaine ? 
@7 DBRA D3,@6 
j AKche la fenStre cfalerte expfquant t'anomalig 
; Procidure StopAlertfalertlD: Integer; 
; Merpwc: ProcPtr): Integer; 

CLR -(SP) 

MOVE #128.-(SP) 

CLR.L -(SP) 

StopAlert 

MOVE (SP) + ,D0 

; Re&ur 

MOVEM.L [SP)+,D3/A3 
UNLK A6 
MOVEL (SP)tAO 



ADDA 
JMP 



ffS.SP 
(AO) 



ReadApplHdies 



, Function ReadApptHdles; OSErr 

; lit le nom et le crea tour de Implication par 

;delaula lancer 

ReadApplHdies 

LINK AB,#0 
; Function GBtString(stringlD; Integer); 
I StringHandle; 

CLR.L (SP) 
MOVE #256,-(SP) 
GelString 

MOVE.L (SP^ApplNameHdlefAS) 

8EQ @1 
; Function GetResource(fteType: ResType; 
• thelD: Integer): Handle; 

CLR.L -(SP) 
MOVE.L (TGNRLXSP) 
MOVE #256,(SP) 
GetResource 

MOVE.L (SP)+.ApplTypesKdle[A5) 
BEQ @1 



; Function ResError: OSErr; 
CLR -(SP) 
_ResError 

MOVE (SP)+,B(A6) 
UNLK A6 
RTS 



GetApplHdles 



; Function GetApplHdles: Boolean; 
; recupvre urr nam de Hchierparle dialogue 
: standard deSFGetFile 
GetApplHdles 

LINK A6,ff-(90) 

Procedure SFGeiFilefwhere: Point; prompt: 
Str2SS;fileFilter: ProcPtr; numTypes: 
Integer; typeList; SFJypeLisl; dlgHuok; 
ProcPtr; var reply; SFReply); 

MOVE #80,-(SP) 

MOVE (SP)r(SP) 

CLR.L -(SP) 

PEA ApplFilter 

MOVE #1,-{SP] 

PEA APPLType 

CLR.L .(SP) 

PEA -74<A6) 

jSFGetFile 

MOVE.B -74+rGt3od(A6)j8(A6) 
BEQ @1 
Sauvelenom 

Procedure SetStringfh: Handle: theString: 
Str2SS); 

MOVE.L ApplNameHdle(A5),-(SP) 

PEA -74+rNanne(A6) 

_SelStrin§ 
sauvele type et cream; 
Function GetFlntoffileName; Slr25S; vRefNum: 
Integer; var fndrinb;Flnh); OSErr; 

CLR (SP) 

PEA -74+rName(A6) 

MOVE -7^rVolume(A6),-(SP) 

PEA -(74+16)(A6) 

JSR GetFlnfo 



MOVE 
LEA 
MOVE L 
MOVE.L 
MOVE.L 
MOVEl 
UNLK AS 
RTS 



[SP)+,D0 

-(74+16)[A6),AQ 

AppfTypesHdle(A5),A1 

(A1),A1 

(A0)+,(A1>+ 

(A0)+.(A1)+ 



ApprType DC 'A PPL' 



ApplFilter 



; Function ApplFiliet{paramBtock: PatmBlHPtr); 
: Boolean: 

; Filtre ios applications sans creataur pour 

;SFGelFite 

ApplFilter 

SF 8[SP) 

MOVE.L 4(SP)A0 

TST.L ioFIUsrWds+1dCrsator(AQ) 

BNE @1 

ST 9(SP) 
ffl MOVEl (SP)t,(SP) 

RTS 



; WriteApplHdlea 

; Function WriiaApptHdhs: OSErr; marque les 
; r^scHircescornmechangees(9llBsemnt 
; enregistre'es en quittant) 
WritBApplHdles 

LINK AS.FfO 
, Procedure CtiangedResource 
■ (jhePesource:Handle); 

MOVEl ApplNameHdle(A5),-(SP) 
_ChBngedResourc8 
; Function ResError; Integer; 
CLR -(SP) 
ResError 

MOVE (SP)f,e(A6) 

BNE @1 
: Procedure. ChangedResource 
; (thQResource-.Handie); 

MOVE.L ApplTypesHdle(A5] r -(SP) 

_ChangedReML«t» 

; Function ResError: integer; 
CLR (SP) 
ResError 

MOVE (SH)+,8(A6; 
BNE ©1 
; Procedure SelResPurge(instati; Boolean); 
ST -(SP) 
_S«tResPtir|e 

©1 UNLK A6 
RTS 



GetApplVReffJum 



Fonction GetApplVRelNum [ApplNamePff: 
StringPtr; (Typas: Array[0..1] of OSType; 
var Armule; Booleari); Intogor; 

Cherche le flchiw ctonne avec le type et createur 

donne retourrie un volume ou working directory 

reference number ou si non trouv^ 

GetApplVRefNum 

LINK A6,#-(ioHVQEISize+8) 
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MOVEM.L D3-D4,-(SP) 
CLR 20(A6) 

; Initialise dalog d'armMon 

MOVE.L 8(AB),AQ 
SF (AO) 

i Function Gel$tring(string!D: Imager) 
StringHandle; 

CLR.L -(SP) 
MOVE #2&2,-(SP) 
_GetString 
MOVE! (SPJ+.A0 
MOVE.L A<V[loHVQE1S!ze+8)(A6) 
; Procedure HLock(h: Handle); 
JILocJt 

; Procedure ParamText(paramO, param), 
■ param2, paramS: 86£S5); 

MOVE.L 16(A6),-(SP) 
MOVE.L ■(ioHVQEISize+8)(A6),A0 
MOVE.L (A0),-[SP) 
CLR.L -(SP) 
CLR.L -|SP) 
_Par*mTexl 
: Procedure HUnLackfh: Handle); 

MOVE.L -(ioHVQEISize+«)(A6),A0 
JWnLock 
Function GetNewDlabgfdiabglD: Integer; 
dStoraga; Ptr; Behind: WlndowPtr): 
DialogPtr; 

CLR.L -(SP) 
MOVE #129,-(SP) 
CLR.L -(SP) 
MOVE.L #-1,-(SP) 
GetNewDialoq 

MOVE.L (SP) + ,.(JoHVQE!Size+4) J 
(A6) 

; met curseur Heche 

JnitCursor 
; Boude pour cheque volume 

CLR D3 
t Volume suivant 
NextVolume 
; Cession annutation 
; Function GeraAmute; Boolean; 

CLR.S (SP) 

MOVE.L A6,-(SP) 

JSH GereAnnuie 

TST.B (SP)+ 

BNE NatFounded 
; Pas tfamutafon : volume suivant 

ADD #1,D3 
: Systems HFS ? (cf inside Macintosh IV-97) 

TST FSFCBLen 

BPL SystentHFS 

:SysldmenonHFS 

; Function PBGetV!n!o(paramBbck: PamtBtkPtr; 
; async: Boolean): OSErr; 

LEA -ioHVQF_ISize{A6) r A0 

CLR.L ksVNPtr(AO) 

CLR ioVRefNum(AQ) 

MOVE D3.ioVollridex(A0) 

_Ge!Vollnfa 

BNE NotFcunded 

MOVE ioVRefNum(AQ],D4 

BRA MFSVof 

, Syst&me HFS 
SysternHFS 

; Function PBHGntVtnto (paramBtock: 
; HPatmBlkPtr; async: Boolean): OSErr: 



LEA -ioHVQEISIze(A6).A0 
CLR.L ioVNPtr(AQ) 
CLR ioVR«fNum(AO) 
MOVE D3,l&Vollndej<{AQ) 
_HGe1Vlnfo 
BNE NotFounded 
; volume HFSov MFS (ou autte) ? 

MOVE ioVRefNum(A0).D4 
CMP1 #SigWord,ioVSigWord(AO) 
BEQ MFSVol 
CMPI #lSigWord,ioVSfgWord/ 
(AO) 

BEQ HFSVel 
BRA NextVolume 

; Charche I'appScatSon sur le volume MFS volume 
MFSVol 

; Function F'mdAppl(theVRe(Num: Integer): 
OSErr; 

CLR -(SP) 
MOVE D4,-(SP) 
MOVE.L AG,-{SP) 
JSR FindApp! 
TST (SP)+ 
BNE NextVolume 
BRA Founded 

; HFS volume 
HFSVol 

; Fonction FindAppiWDRefNum (io VRefNum; 
; Integer; ioDirlD: Longlnt): Integer; 



Copies 
d'ecran 



Minitel, n° 27 



Paru il y a un an, noire programme Minitel du 
n° 27 semble avoir encore beaucoup de 
succes. Vous etes cependant nombreux a 
'buter' sur le mode Copie d'ecran. Voici 
resumee la procedure d'enregistrement : 

1 melire I'ordinateur en mode reception de 
copies d'ecran ; 

2 depuis ie Minitel, consulier les pages 
Videotex ; 

3 lofsqu'un ecran doit etre enregislre sur 
1'orrJinateur et seuiement lorsqu'ii est 
affiche sur le Minitel, presser RETURN 
(sur ('Apple il) ou cliquer Reception de 
copies (sur le Macintosh) ; 

4 faire FNCT-I suivi de F (ie Minitel doit 
£lre dote de la louche FNCT). 

Reprendre a la phase 3 pour chaque nou- 
velle page : les phases 3 et 4 doivent 
s'enchainer sans changer de page Minitel. 
Si vous avez Ic scrvcur envoie fe message 
Caractem ';'errorm, faites FNCTP suivi de 
I, au debut de i'ensem ble des copies d'ecran. 



CLR -(SP) 

MOVE D4.-(SP) 

MOVE.L #2,-(SP) 

MOVE.L A6,-(SP) C"--= 

JSR FindAppiWDRefNum 

MOVE (SP)4,D4 ~ 

BEQ NextVolume 



Founded 

MOVE D4,20(A6) 

;Fn 

NotFounded 

; Procedure DisposDiatog (theDlalog: DialogPtr); 
MOVE.L -(ioHVQ£ISizs+4)(A6)J 

-(SP) 
_Dispe$uialog 
MOV EMI (SP)+,D3-D4 
UNLK AS 
MOVE.L (SP)t,A0 
ADDA #12,SP 
JMP (AO) 



FindAppI 



Function FindAppl(theVRelNum: Integer): 
OSErr; 

Cherche existence de Pappiication donnee sur 

voktnsMFS 

III Attention : Fonction interne a la Fonction 
GetApplVRetNum done poinleur sur variable 
locale en plus sur la pile 

FindAppI 

LINK A6,# ioFQEISize 

; Function PBGetFlntoiparamBiock: PatmBlkPtr; 

■ async; Boolean); OSErr; 

LEA -ioFGElSize(A6),A0 

MOVE.L 8(A6),A1 

MOVE! 16(Al),ioFifeName(A0) 

MOVE t2(A6j,!oVRefrJLm(A0] 

CLR ioFilefype(AO) 

CLR ioFDirhdex(AO) 

_GetFilalnfo 

MOVE D0,14(A6) 

BNE @2 
,- Check type et crteteur 
; Function Ckeckinto (fndrtnto:Flnto); Boolean 

CLR.B (SP) 

PEA iuFIUsfWds(AO) 

MOVE.L 8(A6).-(SP) 

JSR Criecklnfo 

TST.B (SP}+ 

BNE @2 
: Pas ie ton type (File not lound) 
(ffll MOVE *1tlFErr,14(A6) 
@2 UNLK AS 

MOVE.L (SP)+,A0 

ADDA #6,SP 

JMP (AO) 



FindAppiWDRefNum 



; Fonction FirrfApplWRetNum fioVRetNum: 
; Integer; ioDirlD: Longlnt)- Integer; 
; Cherche existence de fapplkaSon dormee sur 
; volume HFS etretoutne ie wofking directory 
: reference number le contenantou sinon 
; III Attention : Fonction interne a la Fonction 
; GetApplVFtelNum done pointeur sur variable 
; locate en plus sur la pSe 
FindAppiWDRefNum 



Pom's n° 33 
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LINK A6,#-ioHFQEISiz 

CLR 18[A6) 
; Function PBHGetFlnfo (paramBbck; 
• HParmBlkPtr, asyne: Boolean); OSErr; 



LEA 
MOVEI 
MOVE.L 
MOVE 
CLR 
MOVE.L 
HGetFilelnfo 
BNE 



-ioHFOEISiz[A6),A0 
Q(A6),A1 

16tAT),k)FileName(A0) 
16(A6),toVFtefNufn(A0) 
ioFDirln<tex(AO) 
12(A6),ioDirlD(A0) 



; Check type et ciialsur 

: Function Ckeckinto (tndrlnfoflnto): Boolean 

CLR. 8 -(SP) 
PEA loFIUsrWds(AO) 
MOVE.L S(A6).-(SP) 
JSR Checklnfo 
TST.B (SP)t 
BEQ @1 
Bon type 91 crialeur 

Function GeWDRelNum (VRefNum: Integer; 
WDDirtD: Longtnt): tmeger; 



CLR 




MOVE 


16(A6),-(SP) 


MOVE.L 


12(A6),-[SP| 


JSR 


GesWDRafNum 


MOVE 


(SP)+ t 18[A6) 


BNE 




LEA 


-ioHFQEISii[A6)A0 


CLR.L 


ioFileNanne(AQ) 


CLR 


toFDif lndex(A0) 


MOVE 


16(A6)joVRafNum(A0) 



@2 

;Gestionarmh<k>n 

; Function G& aAnrnte: Boolean; 

CLR.B -(SP) 

MOVE.L 8(A6),-(SP) 

JSR GereArinule 

TST.B [SP)+ 

BNE @3 

; Directory sutvant 

LEA -ioHFQEISi:(A6),AQ 

ADD #1,ioFDirtndeKfA0) 

MOVEI 12(A6).oDrDiflD(A0) 

_GetCalln!o 

BNE m 

BTST #4,ioFIAttrib(A0) 

BEQ @2 
AppeHa la bnction pour k directory trouve 
Fonction FtndApplWDRetNum (ioVRelNum; 
Integer; ioDirlD; Longlnt): Integer; 



CLR 


■(SP) 


MOVE 


16(AB),-(SP) 


MOVE.L 


ioDrDiflD(AO),-(SP) 


MOVEI 


8(A6),-(SP) 


BSR 


FlndApplWDRefNum 


MOVE 


(SP)+,18(A6) 

@a 


BEQ 


UNLK 


A6 


MOVE.L 


(SP)+,A0 


ADDA 


ffiO.SP 


JMP 


m 



Cheeklrifo 



; Function Ckecklnb (tndrlnk.Flnb): Boolean 
; Verifiale type el crteteur du Itchier 
; It! Attention : Fonction interna a !a Foncion 
; GetApptVRsfNum done polnteur sur variable 
; bcalc en plus sur k pile 



Checklnfo 




SF 


12(SP) 


, L^l JB U\ ifjJP 












MOVE.L 


12(A1),A1 


CMPl 


(A0)t,(Al)+ 


BNE 


@1 


CMP.L 


(A0]+,(A1)+ 


BNE 


@1 


; bon type el crtetaur 


ST 


12(SP) 


@1 MOVE.L 


(SP) +l A0 


ADDA 


#a,sp 


JMP 


(AO) 



GereAiTfiule 



Function GemA mute: Boolean; 

Gere les evenemms pendant la racherche oe 

I'appfication 

Hi A ttention : Function interne £ la Foncion 
GetApplVRetNum done poiniw sur variable 

; focsle en plus sur Is pie 

GeraAnnute 

LINK A6,#-[evtBlkSiie+6) 

; Annotation dija effective ? 
MOVEI BfAfiMO 
MOVE.L 8(A0),Au 
MOVE.B (A0),12(A6) 
BNE @2 

; Function GetNexEvent (eventMask; integer; vat 
iheEvent: EventRecord) I Boolean; 

@1 CLR.B -(SP) 

MOVE #-1,-(SP) 
PEA -evlBlkSize(A6) 
GetNexlEvent 
TST.B (SP]+ 
BEQ @2 

; Function lsDklogEvent(theEvent: EventRecord); 
; Boolean; 

CLR.B -(SP) 

PEA -evlBlkSize(A6) 

JsDialogEvert 

TST.B (SP)+- 

BEQ @2 
Function DhtogSelectftheEvent; EventRscord; 
var theDialog: DkbgPt; var itemHit: 
Integer}: Boolean; 

CLR.B -(SP) 

PEA -eviBlkSize(AS) 

PEA .(evtBlkSize+4)(A6) 

PEA -(evtBIkSiZe+6)(A6) 

_DialogSe!«t 

MOVE.L 8(A6),A0 

MOVEI 8(AQ),A0 
;Vanable d'annuklicn 

MOVE.B (SP),fA0] 

MOVE.B (SP]+.1Z(A6) 

BEQ @1 
S2 UNLK A6 

MOVE.L (SP)4,AD 

ADDA M.SP 

JMP (AO) 



GetWDRefNum 



; retoume te working directory reference number 
; du WODirlD ou si orreur 

GetWDRefNum 

UNK A6,#-ioHFQEISiz 

CLR 14 (AG) 

LEA 'ioHFQEISiz[A6),A0 

CLFLL ioFifeName(AQ) 

MOVE 12(AS),bVflefNurn(A0] 

CLFLL ioWDProclO(AO) 

MOVE.L 8(A6],loWDDirlD(A0) 
_0psnWD 

BNE @1 

MOVE ioVRefNum(A0),14(A6) 

@1 UNLK AS 

MOVE.L (SP)t,A0 

ADDA *6,SP 

JMP (AO) 



GetFlnfo 



; Function GetFlnfo(fileNant9; StrSSS; vRetNum; 

; Integer; var lndrlnb:Flnfo): GSEff; 

; Recup&re les inlos du finder poor la Hcbiar 

; di/ir«5, sur fc volume dome" 

GetFlnfo 

LINK AM-ioFQEISize 
LEA •ioFQE[Size(A6).A0 
MOVEI 14(A6),ioFi[eName(AO) 
MOVE 12(A6).ioVFtefNLim(A0) 
CLR ioFileTypa(AO) 
CLR ioFDirlndex(AQ) 
GelFilelnlo 
MOVE D0,ie(A6) 

; Procedure BtackMove(sourcePts, destPtr. P(r, 
; byteCount: Si2e!; 

LEA ioF(UsrWds(A0),A0 

MOVE.L 8[A6).A1 

MOVEQ #16.D0 
BlockMovE 

UNLK A6 

MOVEI (SP)+,A0 

ADDA #10,SP 

JMP (AO) 



SetVol 



; Function SetVolfvolName: StringPtr; vRtfNum: 
; Integer); OSErr; 

; met le volume ou working direcaty par defaut 



SetVol 



LINK A6,ff-ioQEISize 

LEA -ioQEIS£e[A6),A0 

MOVEL 10(A6),ioVNPtr(A0) 

MOVE B(A6),ioVRefNum(A0) 
SelVol 

MOVE D0,14(A6) 

UNLK AS 

MOVEL (SP)+,A0 

ADDA m,SP 

MP (AO) 



Variable global es 



; Function GatWDRefNum (VRalNum: Integer; 
; WDDirlD: Longlnt): Integer; 



ApplNamaHdlB 
ApprrypesHdla 
ApplVRefNum 



DS 
DS 
DS 
DS 
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Pom's n° 33 






Tatrict^Quyou 



Naw BOOT 
<C> 5987 Patrick Ouyiu 



e fichier "Basic. 
System" lance etemel- 
lement ^execution du 
fichier Startup s'il le 
trouve dans le 
catalogue principal du volume, ce 
Startup pouvant etre aussi bien 
Basic que binaire. II est simple, 
sinon pratique, de modifier ce 
nom a l'aide d'un editeur type 
Copy ][+, Bag of Tricks, mais la 
manipulation reste inconfortable. 

NewBoot est une modification de 
Basic. System qui permet de 
changer ce nom a volonte : il 
suffit de presser la barre d'espa- 
cement lors du boot. Un ecran 
apparait alors, dormant !e nom du 
volume de boot, le nom du 
programme Ianc£ par Basic. 
System et vous proposant 
d'entrer un autre chemin d'acces 
pour le demarrage, 
A ce niveau, entrer simplement le 
nom d'un programme ou bien un 
chemin d'accfes complet. II est 
possible d'indiquer : 

/DISK/DXR1/DIR2/DTR3/DIR4/ 
PROGRAMME 

ainsi le fichier 'Programme' situe 
au 5eme niveau du volume sera 
ex€cut6 au demarrage (le preTixe 
sera par la meme occasion 6tabli 
au niveau du programme lance). 

Le programme, lance automa- 
tiquemcnt par Basii;.Sy$Lern peut 
egalement se trouver sur un autre 
volume : lorsque pour quelques 
temps, il est prcvu d'utiliser 
frequemment AppleWorks il 
devienl aisd de preciser ; 

/U3 . 5/APPLENORKS/APLWORKS . 
SYSTEM 

Utilisation 

Saisir et sauvegarder boot et 
patch, mettre ces deux ficMers 
sur le volume comportant le 
Basic.System a modifier, faire : 

- PATCH 

et attendre un instant. 

Maintenant pour changer de 
startup, la barre d'espacc 
remplace Copy ][+. , . 

(3 



Prefix*: /SPDSK 

Boot actual: STARTUP 

Entrei le chemin du nouvenu boot. 



Recapitulation 
BOOT 

Apris avoir saisi celte recapitulation 
sous moniteur, vous la muvegarderei par : 
BSAVE BOOT, A$4800, L19S4 



4800: AD 


00 


CO 


C9 


AO 


FO 


35 


20 


4808:58 


FC 


AD 


07 


20 


C9 


2F 


FO 


4810:03 


4C 


47 


20 


AE 


06 


20 


BD 


4818:07 


20 


CS 


2F 


FO 


04 


CA 


1C 


4820:17 


48 


AO 


00 


CA 


BD 


07 


20 


482B-.9D 


40 


4B 


ce 


EO 


00 


FO 


03 


4830 ;4C 


24 


48 


8C 


3F 


4B 


20 


36 


4830:49 


4C 


47 


20 


A9 


07 


3D 


F2 


4840:03 


A9 


48 


8D 


F3 


03 


49 


A5 


4848:8D 


F4 


03 


A9 


00 


A2 


FF 


9A 


4850 :2C 


10 


CO 


20 


00 


C3 


AO 


00 


4S5Z;?0 


34 


4A 


AO 


00 


20 


E3 


40 


4860: AO 


01 


SO 


34 


4A 


20 


64 


49 


4868: AO 


01 


20 


E3 


49 


48 


A9 


OC 


4870:70 


5B 


FB 


A9 


12 


85 


24 


68 


4878 :AE 


06 


20 


AO 


00 


B9 


07 


20 


4880:49 


BO 


20 


F.D 


FD 


C8 


CA 


FO 


4888:03 


4C 


7D 


48 


AO 


02 


20 


£3 


4890:49 


48 


A9 


TO 


an 


89 


4A 


A9 


4898 lOB 


8D 


8A 


4A 


A9 


35 


80 


88 


4 8 AO; 4 A 


20 


SB 


4A 


€9 


AD 


3F 


4B 


4 8A8:8D 


Ob 


20 


A2 


00 


3D 


40 


4b 


48B0-.38 


E9 


80 


9P 


07 


20 


£8 


EC 


43B8:06 


20 


FO 


03 


4C 


AD 


48 


A9 


4 SCO : 00 


9D 


07 


20 


E8 


9D 


07 


20 


48C8-.A9 


S3 


8D 


62 


4F 


20 


56 


4F 



48D0 


■20 


F4 


48 


A9 


21 


3D 


62 


4F 


48D8 


■20 


56 


4F 


20 


58 


FC 


AO 


OD 


48E0 


-.20 


E3 


49 


20 


36 


4B 


C9 


3D 


48E8 


:D0 


F9 


AD 


SB 


CO 


AD 


SB 


CO 


4SFO 


:4C 


03 


BF 


00 


20 


00 


BF 


C8 


4 8F8 


:19 


49 


BO 


1A 


AD 


IE 


49 


8D 


4 900:20 


49 


3D 


28 


49 


20 


00 


BF 


4Q08 


:CE 


IF 


49 


30 


09 


20 


00 


BF 


4910:CC 


27 


49 


BO 


01 


60 


4C 


AO 


4918 


:4R 


03 


29 


49 


00 


08 


00 


04 


4920 


:Q0 


00 


20 


58 


2F 


00 


00 


01 


4928 


:00 


OC 


42 


41 


S3 


49 


43 


2E 


4930 


:53 


59 


53 


54 


45 


4D 


AS 


43 


4938 


:8D 


56 


49 


20 


00 


BF 


C6 


44 


4940:49 


BO 


04 


60 


01 


3F 


4B 


AD 


4948 


:56 


49 


8D 


61 


49 


20 


57 


4? 


4950 


:A2 


FF 


HA 


je 


47 


20 


00 


20 


4 958 


:O0 


BF 


C5 


so 


49 


BO 


B7 


60 


4960 


:02 


00 


00 


08 


20 


OO 


BF 


L'7 


4968 


.-70 


49 


BO 


DB 


20 


73 


49 


60 


4970 


:Q1 


92 


49 


48 


A9 


OA 


20 


S# 


4978:FB 


A3 


OB 


85 


24 


£8 


A2 


00 


4980 


:BD 


93 


49 


49 


80 


20 


BD 


FD 


4 988 


:E8 


EC 


92 


49 


FO 


03 


4C 


00 


4 990 


:49 


60 


00 


00 


00 


00 


00 


00 


4998:00 


00 


00 


00 


00 


00 


00 


00 


4 9 AO 


:00 


00 


00 


00 


00 


00 


00 


00 


49A8 


:00 


00 


oo 


00 


00 


00 


00 


00 


49B0 


;00 


no 


00 


00 


00 


00 


00 


00 


4 9B8 


:oo 


00 


00 


00 


00 


00 


00 


00 


49C0 


:00 


00 


OO 


00 


oo 


00 


00 


no 


4 9C8 


100 


00 


00 


00 


oo 


00 


00 


00 


4 9D0 


:00 


00 


oo 


00 


00 


00 


00 


no 


4 9D8 


;00 


00 


00 


00 


00 


00 


00 


oo 




Pom's n° 33 



55 





00 


00 


H9 


18 


4 A 


85 


06 


49E8:B9 


2 6 


4A 


85 


07 


AO 


00 


Bl 


4 y FO * U 6 


2U 


5a 




C8 


HI 


06 


85 




C8 


FO 


1 6 


SI 


06 


C9 


3D 


"a 11 U t> ■ f U 


OA 


C9 


00 


FO 


11 


20 


ED 




/ ■■ 

: • ■ 


FQ 


4 9 


L O 


FO 


03 


QC 


4A10; EF 


4 9 


E6 


07 


4C 


FC 


49 


60 




D 7 


E€ 


3C 


5D 


7E 


9F 


CO 






23 


44 


5B 


OA 


4E 


4E 




4C 


4C 


4C 


4 C 


4 C 


4 C 


4D 


4A30 ■ 4D 


4D 


40 


4F 


AD 


IE 


CO 


30 




9D 


OF 


CO 


B9 


34 


4A 


35 


4A40 - n£ 


B9 


86 


4A 


85 


07 


A9 


3F 


7A1 (J i IjJ 


32 


AO 


CO 


?, l 


OS 


20 


SB 


v /k ^ - 1 1 i- 




C8 


Bl 


Of 


85 


24 


C8 




IB 


A S 


IB 


2 


ED 


FD 


Dl 




C9 


SD 


FO 


OA 


C9 


00 


FD 




20 


FO 


FO 


4C 


57 


4A 


C8 


4A70-F0 


03 


4C 


4C 


4 A 


E6 


07 


4C 


4A78-5A 


4A 


A3 


13 


20 


FO 


FD 


A9 


*1 rkGU mil 


85 


32 


€0 


70 


DO 


4D 


4D 


a a&j) ■* flirt 





00 


A2 





AC 


8A 


4 A 


4 A ;84 


74 


AO 


89 


4 A 


20 


SB 


FB. 




AE 


20 


ED 


FD 


EC 


88 


4h 




04 


F.8 


4C 


98 


4A 


A2 


00 


:AC 


8A 


<iti 


84 


24 


AD 


89 


4 A 


4 ABO :20 


5B 


FB 


AD 


OD 


4B 


20 


F.D 


4AB8 ;FD 


20 


36 


4B 


C9 


8D 


FO 


4F 


4AC0 -C9 


FF 


FO 


32 


C9 


9B 


FO 


56 


4 ACS -eg 


SB 


FO 


2A 


C9 


Al 


90 


1C 


4AD0 :C3 


FE 


BO 


1 8 


EC 


88 


4A 


BO 


4ADB ;£(J 


84 


24 


20 


ED 


FD 


9D 


40 


4A£D ; 4.B 


AD 


0D 


48 


20 


ED 


FD 


E9 


4AFB -Tfl 


4C 


B9 


4A 


SA 


DA 


20 


23 


4AF0 - 


FA 


7A 


4C 


BO 


4A 


CC 


8A 


4AF3 : 4 A 


FO 


OF 


88 


CA 


84 


24 


AD 




43 


20 


ED 


FD 


A9 


AE 


20 


4 hat? * pn 


Ffi 


4C 


B9 


4 A 


DF 


00 


EO 


4 Hi ft ■ ft 


96 


D9 


8E 


3F 


4B 


84 


24 


J J_J J. U ■ J - J 


AE 


20 


ED 


FD 


60 


4C 


3C 


4B20 :48 


FF 


FF 


AE 


21 


4B 


AC 


22 


4B28 :4B 


2C 


30 


co 


88 


DO 


FD 


CA 


4B30;CE 


22 


4B 


DO 


Fl 


60 


AD 


00 


4B38:C0 


10 


FB 


2C 


1 o 


CO 


SO 


00 


4R4Q '00 


00 


00 


00 


00 


00 


00 


00 




00 


00 


00 


00 


00 


00 


00 


4RSB ■ £/fJ 


00. 


00 


00 


00 


00 


00 


00 




00 


00 


00 


00 


00 


00 


00 


4B60 : C/0 


00 


00 


00 


00 


00 


00 


00 


4B68 :Q0 


00 


00 


00 


00 


00 


00 


00 


4B/0;00 


00 


00 


00 


00 


UO 


00 


oo 




00 


00 


00 


00 


00 


00 


00 




00 


00 


00 


00 


00 


00 


00 


WOO i Vv 


Of) 


fitt 


00 


00 


00 


00 


00 


ARQfi ■ no 


00 


00 


00 


00 


00 


00 


00 




00 


00 


00 


00 


00 


00 


00 




C9 


27 


DO 


05 


AO 


03 


4C 




4C 


C3 


2B 


DO 


os 


AO 


04 




OB 


4C 


cs 


40 


DO 


05 


AO 




4C 


03 


4C 


C9 


44 


DO 


05 




f]£ 










^ J 


Li\J 


4BC8:05 


AO 


07 


4C 


03 


4C 


C9 


46 


SBD0:D0 


05 


AO 


08 


4C 


03 


4C 


C9 


4BD8;48 


DO 


05 


AO 


03 


4C 


OB 


4C 


4RF.n:CQ 


4F. 


DO 


05 


AO 


OA 


4C 


OB 



4BE8:4C AO 0C 43 20 E3 43 AO 
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43F8:20 23 4B 20 36 43 C9 9B 
4CO0:F0 06 20 23 4B 4C FB 4B 
4C08;4C 25 4C 48 20 E3 49 68 
4C10:20 23 4B AO 0C 20 E3 49 

r 

Tours Micro-Club... 

...90, avenue Maginot- 37 100 
Tours, edite un bulletin bien 
sympathique : "Le p'tit 
pommier international". II 
s'agit, selon ses auteurs, du 
premier journal edite en DOS 
3.3 et dont les pages sont 
numerotees en hexadecimal. 
^ J 
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4C 


4c 


4C 


4C 


4C 


4C 


AC 


4DE0-.4C 


iC 


4C 


4c 


4C 


4C 


4C 


AC 


4DEU-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


AC 


4DF0-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4DF8-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4E00:4C 


4C 


4C 


4C 


4C 


4C 


4C 


4c 


4E08-.4C 


4C 


IC 


4C 


4C 


4C 


4C 


4C 


4E10-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4E18:4C 


4C 


4C 


5F 


3D 


OA 


03 


5A 


4E20t3D 


OA 


4C 


SF 


8D 


03 


03 


SA 


4E28:8D 


OB 


4C 


5F 


3D 


OC 


03 


5A 


4E30;8D 


OC 


4C 


SF 


3D 


OD 


03 


5A 


4E38:8D 


OD 


4C 


5F 


3D 


OE 


03 


5A 


4E40:8D 


0E 


4C 


SF 


3D 


OF 


03 


SA 


4F48:BD 


OF 


4C 


5F 


3D 


10 


03 


5A 


4E50:8D 


10 


4C 


5F 


3D 


11 


03 


5A 


4E58;9D 


11 


iC 


5F 


3D 


12 


04 


iC 


4E60-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4E6S:4C 


4C 


4C 


4C 


4C 


4C 


4C 


AC 


4E70;4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4E?8:4C 


4C 


4C 


4C 


4C 


4C 


4C 


AC 


4E3Q-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


4C 


4E88-.4C 


4C 


4C 


4C 


4C 


AC 


AC 


AC 


4E90-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


AC 


4E98;4C 


4C 


4C 


4C 


4C 


4C 


AC 


AC 


4EA0-.4C 


4C 


4C 


4C 


4C 


4C 


4C 


00 


4EA8 : 03 


24 


CE 


E5 


F7 


AO 


C2 


CF 


4EB0-.CF 


D4 


3D 


05 


ID 


A3 


C3 


A9 


4EBB-.A0 


Bl 


B9 


B8 


B7 


AO 


DO 


El 


«F.cn:F4 


F7 


Et 


E3 


F.n 


AO 


C.7 


PS 


4EC8SF9 


EF 


F5 


8D 


OA 


06 


DO 


F2 


4F.P0l.FB 


E6 


E9 


F3 


ES 


BA 


00 


OC 


4ED8:06 


C2 


EF 


EF 


F4 


AO 


El 


EJ 


4 EEC i F4 


FS 


ES 


EC 


BA 


00 


OE 


06 




EE 


F4 


F2 


E5 


FA 


AO 


EC 


4EFO:E5 


AO 


S3 


E8 


ES 


ED 


E9 


EE 


4EF8:A0 


E4 


FS 


AO 


EE 


EF 


F5 


FS 


4F001E5 


El 


F5 


AO 


B2 


EF 


EF 


F4 


4F08:AE 


00 


OA 


16 


BC 


D2 


E5 


F4 


4F10:FS 


F2 


BE 


BE 


AO 


DO 


EF 


FS 


4F18:F2 


AO 


Fl 


F5 


E9 


F4 


F4 


E5 


4F20.-F2 


AO 


EC 


ES 


AO 


FO 


F2 


EF 


4F28:E7 


F2 


El 


ED 


ED 


E5 


AE 


SD 


4F30-.0C 


16 


BC 


C3 


F4 


F2 


EC 


AD 


4F38-.D2 


E5 


F3 


ES 


F4 


BE 


AO 


DO 


4F40:EF 


FS 


F2 


AO 


F2 


E5 


EC 


El 


4F48zF.F. 


F.3 


F.5 


F2 


AO 


P.C 


R5 


AO 


4FS0:E2 


EF 


EF 


F4 


AE 


00 


20 


00 


4F58:RF 


C3 


SF 


4F 


BO 


OF 


60 


f)7 


4F60129 


4.9 


E3 


FF 


00 


20 


00 


00 


4F68 : 00 


00 


00 


00 


00 


4C 


AO 
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Sur Ca disquette JlppCe // 



HGR.MNTL 
DENSITE 
DENSITE.S 
COMPACTEUR 

STARTUP.D 

VARIDATE.D 

INIDATE.D 

INIDATE.D 

DATE 

STARTUP.N 

VARIDATE.N 

INIDATE.N 

CHOIX 

NUMERQ 

GLOSSAfRE 

COMMANDE 

RELANCE 

FICHRELANCE 

FICHCOMMANDE 



ProDOS ou DOS 3.3 (RUN) 
Ulilitaire pour HGR.MNTL 
Source Merlin-Pro 
ProDOS ou DOS 3.3 (RUN) 

WPL pour AppleWriter ProDOS 

WPI 

WPL 

WPL 

TXTcontenant la date 

WPL pour AppleWriter ProDOS 

WPL 

WPL 

WPL 

WPL 

WPL 

WPL 

WPL 

TXT exemple 
TXT exemple 



La revue Tom's est attompaflnee optionneffement (Tune 
disqtwtte 5,2? 140%p ou.3,5' SWKp. %n UOKp, (e recto est 
enformafDOS, k zrersoenfProDOS.LadLsquetteSOO^pesi 
formatie TrctDOS : 1/eitter a ttrt sous k Sort systlme 
<f exploitation avant (Ce^ecuter un programme. 
Tour pouvoir dimarrtr dincumtnt avec Ca disquette 
formatie en TrcfDOS, y copier Trc/DOS {tes possesseurs de 
0$ font sous k nom T$) it HoskSysum. 9{gtre tekplwnz 
en cos de difficidth : (l}39 Si 24 A3. 



PATCH 

B0OT.S0URCE 
BOOT 

OD.BIN 
QD.SAMPLE 
QD.MAIN 
QD.SRCE 

ONLINE.EXE 
ONLINE.S 

CAT & MOUSE 
SOURCE.LISA 



ProDOS, programme a RUMer 

Source ProCODE 

patch 

Objet a executes tJeputs ProDOS H 
programme exemple (RUN ou -) 
Source Apw 
Source Apw 

Objet a BRUNer sous ProDOS 
Source Merlin-Pro 

Objet a BRUNer sous DOS 3.3 
Source Lisa 



HEURE 



WPL pour AppleWriter ProDOS 



COMMANDE.CLV Bon de cornmande CalvaCom 



Programme 
'Patch' 



Ce patch fonctionne sur 
Basic.System version 1.2. 
Pour connaitre le numero 
de voire version, renominez 
votrc programme de startup 
et bootez. 



ProDOS 



Source BOOT.SOURCE 

Assembleur ProCODE 



Hew Soot 

Vers J Oft 1.0 
Applt - Appl9 //e - Appla f/gs 

&S&Q2 Assembleur proc&da 




10 

20 

30 
40 
SO 
£0 
70 
80 



REM 
REM 
REM 
REM 
REM 
HiEiM 
REM 
REM 



************************* 



Programme da P&tch 



BASIC, SYSTEM 



t 
* 

* 



************************* 



90 D$ = CHS$ (4) 

100 PRINT D$ "BLOAD BASIC. SYSTEM, T 

SYS,A$2000" 
110 PRINT D$ "BLOAD BOOT" 
120 POKE 8193,0: POKE 8194,72 
130 PRINT D$ "UNLOCK BASIC . SYSTEM" 
140 PRINT D$ "BS AVE BASIC . SYSTEM, T 

SYS, A$200Q, L12150 " 
150 PRINT D$"LOCK BASIC. SYSTEM" 
160 HOME 

170 PRINT "OK, C 'EST FAIT. . ." 



ProgfaWi£ <te patch A Basic. system pemettant de changer 

Je now du proqearame 'baate r au d&marrage du dlsqu&* 

Le neUVeau b6ot peut $'&ff&ctU££, non s&ul&ment 4 di Eter&nEs 

nlveaux dli catting, ffiSls aitssl sur un autre disquet. 

Vr.e disquette 5" 1/4 poum hooter le programme so trouvant au 

5£me niveau d'usn disque dur. 

- /tHJSOU£/DlSl/DIfi2/DTaJ/DIR4/DIS5/PR0GPMWE % est correct 
At tcFitlam 

L* syntaxe .- "/E> JSffOfi/&JT"ft/ " acuJns, cntrdincrdit un "FILE TVPB M 

lors &v floot, mais le pre-cixe seralt etabll sur "foiSQti&/Dl$/"* 



TRANS 


BOO 


SOS 


Pour jd/MJJ^s indirect paje- 


TABV 




SFBSB 


Tabulation verticals 


TABU 


too 


S2i 




MEti.SD 


EflU 


$43 


n:-:..'H.'i:'f act J f 


COLBO 


EOO 


SC300 


pa-siije en «£> Col, 


ALTOFF 


EOO 


SCOOE 


ciumutateyrs caracteres 


ALTSET 


EOU 


SCOQF 


n ft 


ALTJTL 


EOO 


SCO IE 




HOME 


EOH 


ifY-Sa 


efface Scran 


OOVT 


KJD 


fwVED i&ffLchc c j rjc: affcufliulateui' 


GQVT1 


EQV 






SSB 


esci 


feces 


toucliG appuyie 


1TBQBE 


EOU 


jeoio 


n\ls*t i £^£u t^lmvlttL 


HLI 


ECU 


SBFQO 


entire HLI 


t& 


isuu 




stiiiuJacJo/i mut-parleur 
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BASICS EQV ffaW 

PRBYTE EQU fFDDA 

IEVE/i BQV $3F94 

LCHAlNE EQU $200* 

EQU $2007 

EQU $204 7 

EQU S03F2 



MACROS 



BOOT 
RESET 



r&tour basic 

itflefle cadre xiexa fl-ccujPUlatEur 



a dress* f tw .sic, system r 



Veete-ur 'reset ' 



DO /£• eoa> fl '*»fft j?jx ijirtfrtf 

Macro totiuifltliM 

syn ta ae : ".=? r ver ulnal e, Jfv i . wn tale 
TBI .-Worn de 2a Jftaero 

XfM £.0 ;Jer pard metre 

jfift tabv /tabulation vert 1m J* 

LOA t.J :2tc paraaetre 

JM 7VUHJ ^tafcuiatiort iio<riffan£*i* 

Pi* ,-restlteier accmnuletetfr 

BOM tflll d& fld CIO 

* 

* tit Injn u t 



;ffoai ere la macro 

.-lor jwraaetr* 
jtaJbulJtio/] vertical* 
,-2o\Q paratnetre 
/tabulation horizontals 
,-Jsie para metre 

/fixer iong/u^ur §/]tre.e aucorijee 
;saut au sous -pro o/r a jrytie ItiPOT 



-fin de fflJCTO 
.Macro attleher teste 
i. /j. : -.-rtf . AFT nunwre jwasao/e 

tpy £.t? /paranjerre 

JJJI AFFICti /saut au souS-pr^q^asme affichgu tejste 
£0M de jiuc-.ro 



MAC 




PP.A 




IDA 


£.0 


STA 


VTAB 


IM 


L.l 


STA 


JtTAB 


IM 


L.l 


STA 


EXT 


JSJ1 


INPUT 


J>LA 




£CW 





Kfl-cro afflcher caract&res sourLs 



syntax^ ; AfN rmawro df* HUHgu 

MAC .mon --. 1* macro 

ifly £.0 tparametre 

J3S HOU3E.A2T ,-j.aufc au SP affl€ii*g* CAF&ct. sourla 

f jjv ;ie cotfe est de yiOLrve^u gAnere 



ORG $*S0G 



£4 







CPJf 


£fue 


beq 


S2 


JMP 


fl 


srif 


LGENT 


JSR 


SPRSFIX 


JHP 


BOOT 


i.nm 


t.<D7HUT2 


STA 


RESET 


IDA 




■STA 




EC'S 


£f A5 


IT?. 




IDA 




LDX 




TXS 




BIT 


STROfiE 


JSR 


eoi so 


AFH 




AFT 





AFM 


1 


JSR 


CFKEfTX 


AFT 


J 


TRL 


J2. 3« 


10X 




LDY 


iSBB 


LDA 




EQ& 


LfBO 


jsa 


COOT 


iNr 




BEX 




bi a 


52 


JHP 


fl 


AfT 


s 


IKP 


15,13,53 


iCA 


iGEHT 


STt. 


LCMA1NS 


LDX 


IS 00 


IDA 


BUFFER* It 


.WP 




SBr 




■STA 


CHAINS, X 


JNX 




CFX 


LC/IAISE 




n 


J?ff 




LOA 




STA 


cmiNE, x 


ItiX 




STA 


aaim, x 


IDA 


IS&3 


STA 


ACCES 


JSR 


SETFIIE 


JSR 


SAVE 


IDA 


ctn 


STA 


ACCES 


J3R 




JSB 


SIQHE 


AFT 


iJ 


jsa 


BLO0 


CMP 


tSSD 


BME 


§5 


IDA 


sccsa 


IDA 


SCBSB 


JMP 


SBFQ3 


BR* 





lEtsbiit prefix* tie boot 

:Oh. redfiflfle 1a blaIr A basic. system 



tControier la touche <reset? 



; tnlLlallsa t Jiur pllv 

; initial s&Ativn Clavier 

; Af flchtqe catact&r&s sourls <I> 
; Afff.ehaij& LeKlX>S 

f preflx& ceuxdnt 

.-Tabulation jwur afflcflaffB du nom toot 
.-FIftFup&r&r la Jofl^iueur 

,-JVem dir ieist . . . 

, Affl tfl-fl Cf# 

. Won. , . 

; Af fl chaqe t&x t & 
,-£jitree (Jv flouveau boot 
/rfrcuperer la longueur cfe J 'entree 
;0n sauvesfarde cccts languENjr 

intm tfu fl<5uveju r.j.;; . - -. 

,-...r*JEis i sa jpjjffp 

/tout flat *Jcrt 14--..? 
oul 



;S1 protection icrJture 
Sa-vv&r- nouvi&llG ve-rsio/i 



r 'Bye 



PATCH ORG 548GQ 



HQDilL* SAVE 



PATCH 


EQV 
LEA 


KBB 












C«F 








EQS3 






.*« 




i oul 




JSR 




DZBVTZ 


£00 








lit* 


LS 




JSH 


sunt 






DA 


ope». 




IDA 


CHAIWE 






ECS 


fiSJ 




CMP 


fME 


tBsc-ce 'in pre t lJte. , . ? 




LDA 


REP, J 




BEQ 


EXJ". PREF 


,-om 




STA 


SEFl.l 




JMP 


BOOT 






STA 


SEF?.i 


EXT.FREF 


EQQ 














LDX 


LCHAIHE 










SI 


IDA 


CHAIKE.X 






WRITE 




CMP 

BKO 


tSIF 
STORE 


/Fiji tfu prtilxfl 










DEX 








JSH 


Mir 




J«P 


fi 






OElt 


era 


STOKS 


COP 








OA 






ior 


If so 






acs 




fl 


DEX 
LDA 


CttAIHS. X 












STA 


BUFFER, X 






CLOSE 
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JSR HLI 

HEX CC 

DA C10SE.T2 

BCS ESS 

BTS 

JKP ERREUR 



0PBN.T2 EOU ' 

HEX 03 

m pa mi 

HEX Bite 

HEX 0« 



.-TABLE OPSH 



flT5 

BUFFER PREFIXE 



LFSE3UF HEX BO 

psebuf hex Bospooooaoasaooooooeoeoooeoooooo 

hex ooooooooooooaooooooosoocoosooooo 

HEX OOOOOOOOOOOOOOOOOOOtOOOOOOOOOOOO 

hex aoonnnnrsnnnnniiaoooRtioooonDnooaao 

hex ooecoBoooooaoo&ooaooooBcooeeaoao 



kbutjhss MTintHss, ERREVRf * mtbt 



SFREPAR EQV ' 

HEX 01 

DA BUFFER- 1 

PR.ER SOU * 



LPA 
STA 

JSR 

LUX 



SAV.SD 

OVIT 

OSLltlE 

fSFV 



.Recup&ret drive arlqlne 

.•fletour sur drive arlqlne 
initialises: pile 



* 


BOB 


* 


.'TABLE WRITE 


* " 








REF1 ■ 1 


HEX 
HEX 


04 
00 






AJTIOMGE TEXTS 
















HEX 


0020 




Ac e Itjf 


IDA 


TABLES, V 


• JE rf F"\1S ddA rl't *Htflf>l? /hY 




HEX 


5S2F 






STR 


TRANS 






HEX 


0€00 






IDA 


TABLEH, y 














STA 


TRANS tl 














iOr 


LS0O 




CLOSS. T2 


HEy 


01 


.-TABLE CmSF- 


« 


IBA 


(TRANS) , 7 




RSF2.1 


HEX 


00 






JSR 


TABU 


ft abuint-tan vertlmle 












1UV 
LDA 


(TRANS) , Y 














STA 


TABU 


^tabulation JiojrltcrntflJe 


PATH1 


STR 


'BASIC. sls'ltii' ;Hom au flciilei 




ihi 




:::■=■: d v l- h ztulvtisit 












BEQ 


JiS 


.'255 csnczeres aniens 


w 








S3 


IDA 


{TRANS) , r 




* 


MODULE F RE FIXE 






CUP 


£$8D 


,-Fln tfe ilqfle ? 


* 










BED 

cue 


ti 

if 00 


.-Si eui en SAUta ! 


■ 










r 










BEO 


ss 






SET 


PREFIX 






JSR 


COOT 




* 










JHP 
IHY 


S2 




SPREFIX 




* 




« 


/On sauce urt caractere (8D) 




ZBA 


JEW. SD 


tIilBr&ifi9i? drive Actif 




REQ 


Si 






STA 


SAV.SD 


,-SiUvA. i . ! 




JHP 


Si 






JSR 


HUT 




Si 


INC 


TRANS*! 


.'Incx-vmBnt-atiOft ah "tit MHZ 




HEX 


CO 






JUT 


S3 






to 


5PREPAR 




so 


ATS 




.-Aatoiif sir depart 




BCS 


PH.ER 




TABLES 


EOCJ 








RTS 








DFB 


<SCR.Tl r <ECR -TZ. <ECR . T3, <KESERQ, <ME5GR1 



UFB 

TAB LSI: ESC 



3, <«ESER4 

ZHESZHS, ZMESERG, <HE5Efl 7 t cJiES&RS, <MESER9, <KBYE 



OFB JECB.rj, >ECR . T2, >ECR. T3,>HESEFV, >H&SEKl, >P!Es£R2, J-HESSR 
3, JMESER* 

DFB >MESERS, 3HESERS. j«£S£i! 7, >HESERB, *MBS£HS, JNB Iffi 



AFFSCHASE CARACTERES S&JRIS 





JKP 


BOOT 


rttdonna la main A tixxic .sysLen ' 








SAV.3D 


DFjEI 


00 
















HOUSE 


AFF EOC 














LDA 


A£TF£ 


Cfp»ry c a t flii_r i <!'>? 


CNIJKS 


JSR 


Httl 




SHI 


*« 


ial ovi OA £3ute une 1/ittruec l<vi 




HEX 


cs 




JTA 


ALTSBT 


, Coraum/Cfl tiuj" Alt. A -fl> 




DA 


t.lthe 


SB 


LUA 


nTAe, V 


fa^fe {Folds fatblel 




BCS 


ER2 




STA 


TRANS 






RTS 






IDA 


KTAJf, Y 


.-Folnteur p«gs u (Polos rem) 


T.LINE 


HEX 


0! 




STA 


TRANS+1 




miT 


HEX 


00 




LDA 


£«F 


/ Inverse 




HEX 


ooos 




STA 














LEY 








GET 


PHEP1X 


*■ 
















TABULATION 




CPREFJX 


EQV 




F -seatj(i(i 4u priFlX9 






.'i-abuJation vertlcaJe 




JSS 


HLI 


SI 


IDA 






WX 


C7 




iMfl 








DA 


WHEFAX 




NOP 








BCS 


PR.ER 




im 








JSS 


VPREFIX 




LDA 


(TKAWSJ, r 






RTS 






STA 


TAflW 




GPREPAR 


HEX 


01 


* 










OA 


LFREBVF 


*■ 


AFFICfiAGE 










S2 


iwy 






VPREFIX 


ECfl 


* 




RFC 


ss 






TBL 


10,14 


si 


LDA 




a ffatlAG TF.XTnn 




tax 


tSBB 




JSB 


COUT 




SI 


IDA 


PREBOF, X 




1AA 




/^jfaeccre a af fisher 




EM 


use 


,-=or9ct*r« normal 


Crtf 




,-rln IJgnc F 




J3K 


cout 




BBS 


Ji^ 






ItiX 






OHF 


£400 






crx 


LPREBUF 


;Arriom en totalize ? 


aes 


J« 






SEU 




j mil. ., 


JSR 




zATllcnaqe. . . 




JHP 




Wo/i . . . 


JW 


»2 
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■J* 


BEO 
JMP 


cr 
r± 


SDKriE 

/Si >■ 2 55 on tranche i §5 * 

- 


JMP 


DEMUIL 




5-5 


INC 


' ) i c ■ 


■ 

.' TlI c z'e^Qf] t & * Lcr. cc zz?~ z-gLqs fort 


T00ITTT. . ■ ! 






JMP 


'§$ 










Si 




F St R 














COUT1 




OFB 


$FF 






IDA 






0F8 


IFF 






STA 


237 


BTP 


t.OJt 


flUREE 










S3 


1 j' 


HAHTEVB 




UTAH 


BOO 






BIT 


HP 






um 






BEY 






UTAH 


BQCf 






- v£ 


52 






era 


>ECR.SJ, 




&EX 


H&n-Fsvk 












Ike 


SI 




i 






XT* 














EQU 




,-ACCtnce clavier 








SI 


LDA 


KSO 




EtiT 


BEX 






3PL 


SI 








OS 




BIT 


STROBE 




WTAfl 








RTS 






INPUT 


EQU 






HEX 


00 








CfDO 




sou 








LDY 


J3TAB 




HEX 


OBOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 










HFX 


oaaoooDooDDaooBOOocooooooooooooo 




LOA 


VTAB 




HEX 


aootyoooonddOFHi/ifidnfinnnnnnnntinoon 










HEX 


ooooMOOOOOoDoeococoeoiiooooooooo 




TJJ* 






HEX 


:;K!;i;:£;£;i:;:f:;;::::::::::: 


JSH 


COUT 




HEX 


OOOOOQOQOOOMlOOOCOOClOCtKlOQlXliCoO 




CPX 


EMT 












BEO 


SFIN 


















SESTI0H tHKHUHS 










* 










is 




ESQQ 


* 












HTA3 


EftftBOfi 


EQV 


* 








TUBE 




CLC 










VTAB 




CMP 




,-MESEHO 
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uperMacroWorks est 
un utilitaire destine 
aux utilisateurs 
d' AppleWorks 1 .4, 
leur procurant une 
nouvelle dimension 
de travail : les 



macro-commandes. II s'agit 
de perm e Lire I'execution 
automatique de sequences de 
commandes par la pression 
d'une seule touche : les 
fervents de WPL apprecie- 
ront de retrouver ce qu'ils 
avaient douloureusement 
perdu en abandonnant 
AppleWriter. Notons en 
preambules que - comme 
toujours dans Pom's - les 
impressions (subjectives ?) 
donnees ici sont issues de 
1' us age du programme et 
non de celui des 
communiques de presse . . . 

SuperMacroWorks est un 
programme des celebres Beagle 
Brothers. D est fort heureusement 
complete par un mode d'emploi 
traduit par D. Geystor et 
disponible separement. 

SuperMacroWorks ne se concoit 
d'ailleurs que par I'ensemble 
programme, mode d'emploi 
francais et disquette 'bonus" 
(macros directement editables 
pour en analyser le 
fonetionnement et eventuellement 
les moditier). 

La mise en oeuvre, sans etre 
delicate, meriie attention : le 
fichier systeme de demarrage ne 
sera plus APL WORKS. SYSTEM 



mais SUPER.SYSTEM, le 
bicn-nommc. 



La souris 

A l'usage, et peut-eire meme 
avant d'apprecier les macros- 
commandes, on est seduit par 
l'usage de la souris : cette facette 
justifie a elle seule l'achat ! La 
souris permet le choix dans les 
menus 'a b aires' , permet le 
deplaeeinent dans les textes et 
autres feuilies de calcul, le confort 
est insoupconnable. Les menus 
'horizontaux* du type : 
Vaulei-vaus vraiment Mrs cata ? Qui Won 

sont egalement gere\s par la 
souris... 

Luxe supplementaire, le 
defilement des textes ou de la 
feuille de calcul peut 8tre continu 
par Taction sur le bouton de la 
souris. 

Petit detail - pratique lorsqu'on 
assirnile le reflexe en traitement 
de textes, le curseur souris se 
deplace comme a I'aide des 
fleches et non comme sur le 
Macintosh. Au bord droit, si la 
souris est deplacee a droite, le 
curseur va au premier caractere de 
la ligne suivante. 

Macro-commandes 

Pour le lecteur qui n'a jamais 
goflte au glossaire et au WPL 
d' AppleWriter, prenons 
l'exemple de la justification d'un 
texte au centre. Avec 
AppleWorks, il faut faire C5(9 puis 
CN puis Return puis Esc. Grace a 
SuperMacroWorks, la 'macro* C 
est decrite ainsi : 

C : <awpXoa -OCN<rtiiX&sc> ! 

Le langage utilise est simple : 



c debut de macro, on utilise C 
awp macro active exclusive- 

ment en traitement de textes 
oa-o simule pomme ouvcrtc O 
cw simule la pression de CN 
rtn simule la pression de return 
esc simule la pression de escape 
/ fin de la definition 

Maintenant 0c suffit a centrer le 
texte... 

Plus subtil, 1' inversion de deux 
mots de part et d'autre du curseur 
qui est executee instantanement 
par rfW, car definie ainsi : 

fi : <awp><oa-left><oa -D>I<oa 
-rightxleftXrtnXoa-righ 
txoa -rightxrt nXlef t> I 
Autant de commandes qui seraient 
fastidieuses a taper. 

II est possible d'utiliser les 
macro-commandes fournies 
directement, den aj outer et 
d'enregistrer les ajouts ou au 
contraire de ne concevoir une 
macro que pour une utilisation 
temporaire. Si le mot 
'programme' revient souvent 
dans un texte, autant le mettre 
'sous la pomme' en tapant : 

dWprt>gx-amnte<CTRL-i> 

Les ajouts se font en direct a. tous 
moments ou en differe apres 
preparation en traitement de 
textes. 

Selon les usages, il est possible 
de concevoir en plus des macros 
fournies, des macros specifiques 
reparties Eventuellement dans 
plusieurs fichiers. A noter que 
lors de la preparation de macros, 
on peut leur affecter un usage : 

• general ou ; 

• rraitemem de textes seulement ; 

• tableur seulement ; 

• base de donnees seulement. 
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Pout etendre leur potenticl, les 
macros savent extorter bnncles et 
conditions (esi-on bien arrivd au 
'R' ? parexemple). 

Un exemple ? 

Parmi les macros mises a la 

disposition de l'utilisateur ' 

affiche la date, mais a 
I'arnericaine : 

Novembre 2, 1037 

Qu'a ceta ne tienne, les macros 
pouvant s'appeler mutuellemcnt, 
il suffit de de"firrir : 

5:<awpXsa- 'xleftxlef t>< 
leftXleftXleftXdelXsa- 
t Xsa-w>! 

La date, a la francaise, s'obtient 
maintenant avec #5, cette macro 
en appelant trois autres ; ' # ' ' , 
' et Bien entendu, de 

nomhreuses autres combinaisons 
pourraient mener au mcme 
r&ultat. 



Une macro est prevue poui 
afficher l'heure (certainement 
pour concurenccr le programme 
WPL public dans ces pages !). 

Parmi les nomhreuses possibilites 
qui, combiners, forment de 
veritables programmes, on note 
dcs commandos pour ; 

reculer a l'espace precedent, 

- rechereher la prochaine 
commandc d'impression, 

- rechereher le prochain espace, 

- converter en majuscule ou en 
minuscule, 

- incre'menter ou decr^menter 
des caracteres (de quoi 
concevoir tine calculette ?), 

- 'tracer* des macros pour les 
contrnler, 

- imprimer la ligne du curscur, 

- utiliser des variables, 

- repeter des macros, 

- attendre la saisie de texte, 

- attendre une seule touche, 

- afficher un message mSme 
avec des caracteres souris,. . . 



Comme avec WPL, SuperMacro- 
Works donne un noyau 
destructions a enrichir par 
compilation selon les besoins 
(cela fait penser au Forth) : toutes 
les commandes ne sont pas 
prevus mais comme les macros 
peuvent s'appeler mutuellement, . . 



Beagle Bros Inc. 

3990 Old Town ave„ Suite 102C 
San Diego, 
CA 92110 USA 

Programme : environ $50 + 
transport (carte de credit) 

Dimitri Geystor 
Lachenaz 
74350 Cruzeilles 
ni: 50 44 21 70 

Mode d'emploifranQais, disquette 
'bonus' : 65,00 F 
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Renoncant a PostScript et aux polices de caracteres 
integrees, des PME optent parfois pour l'imprimante 
LaserJet de Hewlett Packard et non pour la 
LaserWriter d'Apple. 

L' Apple // nc doit pas fairc dc complexes inutiles car il 
commande sans prohleme cette machine, comme la 
LaserWriter (voir n° 24 de Pom's, PostScript). Les 
codes de commandes indiqu£s ici ne concernent 
toutefois que la LaserJet. 

Configuration necessaire 

Pour obtenir le resultat pr6sente~ sur les exemples de la 
page 64, il vous faut les Clements suivants ; 

• Apple //e; 

• Carte Super Serie Apple ; 

• Cable serie (analogue a celui de lTmage Writer) ; 

• Imprimante LaserJet ; 

• Cartouche de caracteres 92286C International! 
(pour disposer des caracteres accentufe) ; 



■ AppleWorks 1.4 

La carte SSC 

La carte Super Serie Apple doit etie configuree 
comme pour rimageWriter : 

sv1 



modem 




SV2 



terminal 



off 
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Parametres d'AppleWorks 

Suivre le chemin traditionnel depuis le menu principal 
pour ajouter une imprimante ; 

option Autres activites, puis Specifier les donnees 
Imprimante(s), puis Ajouter Imprimante puis Mon 
Imprimante. 

Indiquer alors le nom que vous lui r6servez, dans le 
cas present : *LaserJet+'. 

Seleetionner les possibilites suivantes : 

SautdeligneapresCR: oui 

Accepts saut de page : oui 

Arret en fin de page : non 

Largeur de chariot : 7,7 pouces 

Carte d' interface : CTRLd son 



Dormer les codes 

6 lignes'pouce : 
8 lignes'pouce : 
D£but car. gras : 
Fin car. gras : 
Debut souligne: 
Fin souligne : 
Debut indice inf. : 
Fin indice inf. : 
DSbut indice sup. : 
Fin indice sup.: 
8 carac/pouce ; 

10 carac/pouce: 

11 carac/pouce: 

1 2 carac/pouce ; 

1 5 carac/pouce : 
17 carac/pouce: 
20 carac/pouce : 



d'impression suivants : 

ESC &16D 
ESC &18D 
ESC (s3B 
ESC (sOB 
ESC &dD 
ESC &da 
ESC &a+37V 
ESC &a-37V 
ESC &a-37V 
ESC &a+37V 

ESC (OF ESC (sOS ESC (slOH 
ESC &kl5H 

ESC (OF ESC (sOS ESC (slOH 
ESC (OF ESC (slS ESC (slOH 
ESC&kllH 

ESC (OF ESC (sOS ESC (slOH 
ESC feklOH 

ESC (OK ESC (si 6.6H ESC &kf!H 

ESC (OF ESC (s!6.6H 

ESC (OF ESC (s!6.6H ESC &k6H 



Les densites 8, 10, 12 sont du type Courrier droit et 
autorisent le soulignement, les caracteres gras et 
indices. 

La densite" 11 est du type Courrier incline et autorise lc 
soulignement et les indices. 

Les densites 15, 17, 20 sont du type Line Printer droit 
et autorisent le soulignement et les indices. 

Remarques 

La configuration presents' ici n'est pas critique : un 
Apple //c (ou tout ordinateur avec sonie s^rie), 
Apple Writer et une LaserWriter peuvent fort bien 
communiquer. 
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arts le numero 30 
de Pom's, l'article 
sur Mulliscribe 
v 2.0 faisait al- 
lusion a une 
prochaine version 
specitique du IIgs. 
C'est fait ! 



Styleware Inc. vient de sortir 
Mulliscribe GS 2.0 (a $99.95 si vous 
commandez directement : 5250 
Gulf ion Suite E, Houston Texas 
77081, U.S.A.), tandis qu'au mcme 
moment Version-Soft nous credite de 
GSWritc 2.0 (gratuil avec 1'achat d'un 
IIGS). 

Inutile de d&rire ces programmes en 
detail : ils n'interessent que les 
pnssesseiirs d'un GS qui, "par 
definition" ont deja GSWrite. Or, 
Multiseribe et GSWrite sont tres, tres, 
semblables : connivence ? Imitation ? 
Peul-etre t mais plus probablemenl 
respect des 'normes Apple' par les 
developpeurs sur ProDOS 16. 
Ce ne soni loutefois pas des jumeaux 
univitellins, alois penchons nous sur 
les principal es differences. 

Ce qui est propre 
a GSWritc 

■ ecrire en rouge et en noir 
(seulemenL .,) ; 

• ecrire en sur-ligne rouge, vert. ., ; 

■ ecrire en lettres barrees (inteiei ?) ; 

■ possibilites de definir et conserver 
plusieurs regies de mise en page 

(espacemeni des lignes, justifications, 
tabulations) et merne de les baptise* 
du nom qu'il vous plaira. Tres ires 
commode ! : 

• marges et tabulations en 
centimetres et non en pouces (avee 

possibilites de tabulations point par 
point ou bien decimates) ; 

• redefinition possible de la taille des 
caracteres (de 6 a 32 et non de a 

32 comme le laisse croire un des 



menus deroulants), ccci en plus des 
options standards (8-9-10-12-16 
- 18); 

• option d'annulaiion de la dcrmcre 
saisie ; 

* nombreuses possibility de 
caracteres "supplemcntaircs" par 

Option + autre, tnuc.he. ; on obtient 
une sfirie de lettre-accent gTave, 
lcttre-tr6ma, lettres accolees (oe), 
grccques (X. B, n p.). et divers 
symboles. 

Assez curieusement, le manuel est 
muet sur cette remarquable 
possibility : il signale en revanche 
I'astuce voyelle precedee de la touche 
tr£ma ou circonflexe pour obtenir le 
caractere accentue correspondant (on 
pent regretter que les resuliais de 
Option 4- autre touche soient 
'mne'motechniquement' parfois peu 
judicieux : Option + S donne 6, tandis 
qu' Option + B donne ' !). 
■ on peui - enfin - charger des 
images dans le tcxtc (ct cllcs y 
restent visibles en permanence) mais 
uniquement si ellcs sont au format 
GSPaint. On ne pcut ecrire ni a cote 
ni sur eile.s ; elles transite.nl 
obligatoirement par le presse-papier 
qui estde ce fait 'neutralise'. 

Ce qu'apporte 
Multiseribe GS 

* ecrire en couleur, mais pas 
seulement en noir ou rouge 

comme GSWrite : il y a une palette de 
16 couleurs redefinissables comme 
dans GSPaint (done 4096 
possibilites), Ceci 6iant (Jit.,, c'est 
joli a l'ecran, mais il est dommage que 
les couleurs des rubans d'imprimantes 
soient encore si trisies ei que 
l'impression matricielle soit si lent© 
(critique valahle pour les deux 
programmes) ; 

• dessiner (mais oui), grace a un 
mini-6ditenr de "shapes" dans le 

style de GSDraw ou dc TopDraw ; 
diverses figures pleines ou vides 
(rectangle a bords carres ou arrondts, 
ceicles el ovales, lignes) avec 



plusieurs choix pour l'epaisseur du 
trait. Ghaqne dessin pent etre 
indefiniment agrandi, diminud, 
deplace\ superpose avec d'autres ou 
avec le texte : une belle realisation ! : 

• charger des im ages et 1 es m el anger 
avec le tcxlc el avec les memos 

possibilites de manipulations que ci- 

dessus, bien qu'il ne soit pas toujours 
facile dc respecter les couleurs dc 
1'original qui, en revanche, pent 
provenir de GSPaint, DeluxePaint, 
PainlWork, TopDraw (quelques petites 
astuc.es a connaTtre, voir le manuel et 
un documeni-leure enregistre" sur la 
disquette) ; 

■ on pent, bien sur, voir et imprimer 
ensemble textes et images mais, 

quand on dessine, on perd la vue du 
texte et vice versa ; 

■ un peu plus de 'choix standards' 
que dans GSWrite pour les tailles 

de caracteres, et une sous-option 
permelianl de faire varier la targeur des 
lettres de 1 point-ecran ; 

■ 5 options de Style de plus que 
GSWrite (Ombrd, Indice et Exposant, 
Majuscules et Minuscules) ; 

■ dernier atout : Multiseribe 
reconnait et charge immddiatement 

les fichiers textes d' AppleWorks (type 
AWP); 

• un regret pour finir : alphabet 
strictement americain : impossible 

d'avoir des e i il... meme si - petits 
malins - vous permutez avec les 
polices apparemment franeisees de 
GSWrite (compatibles, ce qui permet 
de les mdlanger : n'en mettez toutefois 
pas trap... cela finit par 'd^border' en 
bas de l'ecran). 

Alqrs... a vous de choisir... ou 
attendre la prochaine version : 2.0 
scmblc signifier version definitive, ce 
qui ne veut pas dire parfaite (en 
insistani bien on arrive a planter le 
soft americain tout autant que le 
francais), et ce qui n'interdit pas 
d'esperer une version 3.0 encore plus 
pcrfomnantc. 

a 
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Jean-yves 'Bourdin 




Nouvelles 
du front 



Les freres Beagle, de San Diego 
(California), plus celebres que les 
freres Marx chez les Applemaniaques 
pour leurs programmes toujours 
indispensables (GPLE, Pronto DOS, 
Beagle Graphics...} et jamais 
prot6g£s, ainsi que pour leur 
inenarrable sens de I'humour, ont 
trouvd un nouveau proprietaire. Le 
couple Bert et Sharon Kersey, 
fondateur de la soci£t£, qui en avail 
assez de diriger une entreprise 
(florissantc au demcurant) plulSt que 
de programmer, a revendu la soci£t£... 
a son principal concurrent 

II faut dire que ce "concurrent", Mark 
SImonsen, emit aussi un de leurs 
amis, un ancien programmeur de 
Beagle, qui avail fonde la soci^te" 
Software Touch pour pouvoir 
publier des programmes egaiement 
excellents, egaiement non proteges, 
mais qui entraient en concurrence avec 
des produits Beagle. On ne peut nier 
par exemple que Program Writer, 
d'Alan Bird, surpassc ct pcrimc 
GPI F. I.e. rnfmc Alan Bird pnhliant 
d'ailleurs aussitot apres chez Beagle le 
gfinial Beagle Compiler, premier 
mais definttif compilateur Applesoft 
sous ProDOS... 

La fusion de Beagle et de Software 
Touch ne peut etre qu'une bonne 
nouvelle pour notre bon vieux chien, 
puisque Mark Simonsen a su garder et 
faire collaborer ces deux genies de la 
programmation que sont Alan Bird 
(AutoWorks) et Randy Brandt 
(SuperMacro Works). Les premiers 
fruits de leur collaboration sont une 
serie d'excellents utilitaires pour 
AppleWorks qui, a la difference des 
accessoires de Pinpoint par exemple, 
sont totalement integres a 
AppleWorks (voir la rubriquc "le 
mange-disques"). 




L 'orientation de la compagnie vers 
plus de produits pour les "utilisateurs" 
(et moins pour les bricoleurs et 
programme urs) est done confirmee. II 
serait dommage cependant que Beagle 
renonce au Basic 16 bits et aux 
utilitaires ProDOS 16 que nous 
attendons tons. 

Toujours plus 

II est inaccep- 
table aujour- 
d'hui de lire 
des rapports ou 
des theses uni- 
quemcnt com- 
poses de ce 
texte sec, 
meme pas pro- 
pnrtionnel, que prnduisaient les 
machines a ecrire de grand maman. 
L'informatique personnelle, e'est la 
publication personnelle, mise en page, 
variee, imagee, et mcmc en couleurs. 
Sur Apple //, e'est Newsroom, 
Certificate Maker, ou le tout 
nouveau SpringBoard Publisher, 
tous de Springboard. Sur GS, e'est 
GSWrlte de VerslonSoft et 
Graphic Writer de Datapak 
Software, en couleurs et en super 
haute resolution. Pour tous, e'est 
aussi Print Shop de Broderbund. 

II nous faul done des images, tuujours 
plus d'images. Toutes les disquettes de 
Clip Art pour ces programmes sont 
bonnes, mais il n'y a ni ma photo ni 
ma collection d'estampes eroliques 
malgaches. La solution est connue, 
elle s'appelle : numdrisation. 
Numeriser une image, e'est la reduire a 
un nombre fini de points 
correspondant a la resolution 
graphique de voire machine et 
transcrire ces points en octets qui font 
de tr&s belles "images-machines", 
images que vous pouvez ensuite 
afficher sur l'ecran, travailler avec vos 
utilitaires graphiques et imprimer sur 
votre imprimante. 



II y a deux facons de numeriser : soit a 
partir d'une camera ou d'une image 
video avec une interface specifique 

(nous on parlerons un autre jour), 
soit... en retournant votre 
Imagewriter, qui, au lieu de recevoir 
depuis votre port s6rie, va 6mettrc vers 
lur les informations necessaires & 1a 
reconstitution des images. Deux 
produits nouveaux permettent 
aujourd'hui aux possesseurs d'une 
Imagewriter de reinplacer la te-te 
d'dcriture de leur imprimante par un 
"scanner" qui lit et transmet les 
images mises dans l'imprimante a la 
place du papier. 

— ThunderScan, de Thunderware 
n'est plus le privilege du Mac. La 
version pour //e, //c ou IIGS coute 
219 dollars ; 

— Scannit, de Jed Design, est 
offert en deux versions : De Luxe 
a 249 dollars ou le nouveau 
Scannit 25 a 179 dollars. 

Le mange disques 

A la recente fete de 
1'AppIe // a San 
Francisco, ce ne 
sont pas les 
programmes GS qui ont cu la vedctte, 
mais la serie des utilitaires 
AppleWorks de Beagle & Software 
Touch. Ccttc scric, appcldc- 
TimeOnt, comprend d'ores et deja • 

— un correcteur (anglais) avec un 
dicuounaire de BO 000 mots auquel 
vous pouvez ajouter le votre, de 
longueur illimitee : Time Out 
QukkSpell 5 

un programme qui permet de 
transformer AppleWorks en un 
mini -Mac Write, U'iiuprimer les 
fichiers AppleWorks avec des 
fontes graphiques de toutes tallies 
(6 a 127 points) et de tous styles, 
et d'y inclure des dessins : 
TimeOut SuperfontS : 
• — un grapheur qui cree des graphiques 
directemerst a partir des fichiers 
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tableur ou base de donn^es 
d'ApplcWorks ct ies imprime : 
Time Out Graph; 

— un no uvea u programme de macros 
pour AppleWorks qui prend la 
succession de SuperMacroWorks ei 
AuioWorks. Avec lui AppleWorks 
devient un langage complet, un 
interprets ur de macro-commandes : 
TimeOut UltraMacros ; 

— un utilitaire pour imprimer les 
fichiers du tableur qui deipassent la 
largcur de la page en les retoumanr, 
h 90°, du genre de Sideways : 
TimeOut SideSpead : 

— un programme qui permet sans 
sortir d'AppleWorkg de copier, 
comparer, verrouiller. d6ver- 
rouillcr, effacer tout fichicr et dc 
faire des copies de disque : 
TimeOut FileMaster ; 

— un ensemble d'acccssoircs de 
bureau type Pinpoint ou Sidekick, 
pcrmcuam d 'avoir insiansanfimcni 
acces depuis AppleWorks a une 
horloge, un calendrier. un agenda, 
une calculette, un bloc-notes, un 
adresscur d'enveloppes et a 
l'incvitable puzzle : TimeOut 
DeskTools. 

Sous le capot 

La meilleure 
carte acc£le- 
rateur pour 
Apple //, et le 
seul accele- 
rate ur pour jfc, viennent de sortir. Ce 
n'est d'ailleurs pas une cane, mais une 
puce qui rcmplace le microprocesseur 
et fait tourner voire machine (][, ][+, 
//e. Hz ou compatible Apple) a 4 
Megaherz, 400% plus vite. Zip 
Chip de Zip Technology n'a pas 
de 'switches* (reglagesau clavier), ne 
demande aucun slot, est garanti a vie 
et ne coute que 130 dollars, Bientot la 
version pour GS. 

Si vous avez un nouveau //c (avec la 
souris en slot 7). ou un GS. ou une 
carte d'extension mdmoire type Apple 
dans voire ][+ ou votre //e, et que 
vous n'avez pas encore UN MEGA 
(1024 Ko) sur cette carte, vous vous 
privez de beaucoup de plaisirs et de 
possibiliies. Toutes ces cartes ne 
demandent qu'a etre remplies par des 





Rams parfaitement standard 41256 a 
1 50 nanosccondes qu'on trouvc chcz 
n'importe quel marchand de 
composants k 30,00 F piece 
maximum. II en faut 8 pour 256Ko, 
24 (mais achetez-en 25 pour la 
securite) pour "gonfler" a 1 M6ga un 
//c ou un GS. Le seul effort demands 
est celui d'ouvrir ia machine (eteinte), 
de toucher son alimentation pour se 
debarrasser de I'dlectricite statique, et 
d'inseier les puces dans les supports 
vides qui Ics atlcndcnl. Pour le GS, 
suivre la documentation remise avec la 
carte d'extension mSmoire (attention 
aux "jumpers"). Vous perdez votre 
garantie, et tout cela est a vos risques 
et penis. Mes amis et moi l'avons fait 
quand meme. 

Patchworks 

Le patch suivant 
permet aux //c, //e, 
IICS (mais pas aux 
11+) d'avoir sous 
ProDOS et Basic System 1,1 une 
commande CATALOG qui fait 
automatiquement passer en 80 
colonnes (Puristes, rendez-vous au 
paragraphe suivant...). La commande 
CAT agit comme CATALOG si vous 
ctcs en 80 colonnes, mais fonctionne 
enmme d'hahitude si vous etes en 40 
colonnes : 

BLOADBASIC. SYSTEM, TSYS.AS2 000 J 
CALL-15U 

3A36 • 20 00 C3 Afi J\ CA 8E H 

4323:36 N 42EF:39J 
BSAVEBASIC. SYSTEM, TSyS,A52UUOJ 
- BASIC, SY5TEMJ 

Le caractere "damier" qui tcrminc Ics 
lignes de fraitement de texte dans 
AppleWorks 1.4 a an aspect ifiuo. 
Pour le remplacer par le moderne 
symbole J des caracteres souris : 

BLOAD SEG.M1, T0,A£2100, LS2E00, 

BS4CDAJ 
POKE 16759,205 : POKE 17163, 

205 : POKE 19451, 205J 
UNLOCK SEG.M1.J 

BSAVE SEG.Ml,TO,AS2100,LS2E00, 
BS4CDAJ 

Les premieres versions dc 
$ uper Macro Works de Randy Brandt 
chez Beagle Bros, programme g6nial 
de macro-commandes pour Apple- 



Works, avait un 16ger bug avec la 
version franc, aise 1.4 d' AppleWorks : 
la macro A empfeche de conclure une 
suite de codes dans la definition de 
"mon imprimante". Comme cette 
macro n'est pas redefinissable, il faut 
la changer dans le programme. Voici 

comment la remplacer par (5_ : 

BLOAD 

SDFER, SYSTEM, A$2O00, T$FFJ 

POKE 165 03, 22 3 J 

BSAVE SUPER. SYSTEM, TSFF J 

Encore une partie 
et j'eteins 




Deux nouvcaux jcux marqueront 
l'annde 87 sur Apple ][ par la 
nouveaute" reelle de leur conception et 
le fini de leur realisation. 

Portal d'Activisiou met enfin le 
jeu sur ordinateur a hauteur du cinema 
ou de la littdrature par la quaiite et la 
quantit6 des 6motions qu'on eprouve a 
y jouer. Rentre sur terre a la fin du 
21 erne siecle apres un voyage dans les 
&oiles, vous y retrouvez tout... sauf 
les gens, qui ont dispam. Le jeu 
consiste a comprendre ce qui a pu se 
passer. Vous pouvcz le faire en 
interrogeant Worldnet. le re'seau 
informarique hyper-performant de cette 
fin de siccle, qui est encore 
partiellement en ordre de marche. 
Vous n'avez pour l'iiiierroger qu'un 
vieux terminal du 20eme siecle, en 
deux dimensions settlement, muni 
d'une archai'que interface clavier, mais 
qui fonctionne encore (ces Apple // 
etaient vrairnent Lncrevablcs). Si vous 
ne lisez pas 1'anglais, apprenez-le en 
jouant a Portal. 

Accolades's Comics de Steve 
Keene et d'Accolade a une ambition 
plus modeste, mais la realise 
parfaitement : celle d'etre le premier 
jeu d 'a ventures et d'arcade qui soil en 
memo temps unc bandc dessinde, un 
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Comics, Vous pilotez effectivement le 
jeu, feuilletez les pages, jouez a cinq 
jeux d'arcadc diffdrcnts, avec la facilite 
de lecture d'une. BD. Si vous ne lisez 
pas l'anglais, vous comprendrez quand 
mcmc Accolade's Comics, 

On peut aussi se divertir avec des jeux 
plus classiques : ainsi, si quelque 
dinosaurc dc vos amis croit encore 
sincerement a la fable de la pretencHie 
"superiorite" de TAiari sur le OS, 
montres lui Thcxdcr de Sierra On 
Line, le jeu d'arcade qui fait fureur an 
Japon, sur votre GS. Et si vous 
preferez les jeux a la francaise, essayez 
Seduction 1 de Froggy 
Software, jeu de roles qui vous met 
dans la peau d'un scducteur galactique. 

16 bits 

l pj Ca bouge du cote du 
GS : Apple USA 
^ jrj | '| distribue graluilement 
outre-Atiantique de 
nouvelles Roms et une nouvelle puce 
video, qui 61iminentpas mal de bugs 
de la version actuelle mais qui semble 
en ajouter : certains disques durs et le 
disque-Ram Speedlsk s'en portent mal. 
En fail, Speedisk - par exemple - 
fonctionne avec ies nouvelles Roms, 
mais pas avec la version 1.3 de 
ProDOS 16 livree avec. II convient 
done dans ce cas, com me le 
conseillcnt deja plusieurs revues 
americatnes, de conserver la version 
1.1. Apple distribue cgalcmcnl 
gratuitement la derniere version du 
Systeme (version 2.0), qui occupe 
pratiqucmcnt tonic une disquettc 
SOOKo. Nouveautis : 

■ ProDOS 16 Version 1.3 (juste- 
ment,..) : 

• ProDOS 8 Version 1.4 (17 Avril 

87); 

■ Loader Version 1.2 ; 

* Launcher Version 2.0, 

mais toujours Basic System Version 
1.1. Sont ajout6s le Print Manager 
(enfin un outil pour piloter les 
imprimanics), des outils auxiliaires . 
pour QuickDraw, la correction de 
certains bugs de la version 1.1 du 
systeme ; les outils sont presents sur 
la disqueite sous forme compresses, et 
lc Loader a 6\6 revise 1 pour pcrmcttrc 1c 
chargement de ces fichiers compresses. 



Tout cela est a demander a votre 
revendeur. 

SoftSwitch de Roger Wagner 
Publishing, est a la fois un 
'switcher' et une 'wildcard' pour le 
GS. Installs cornme un accessoirc dc 
bureau sous ProDOS 16, il permel de 
quitter une application (8 bits 
sculement), de la sauver en memoire, 
d'en lancer une autre, de la quitter a 
son tour pour retrouver la precedente 
au point exact ou vous en etiez reste, 
sans jamais redemarre.r. Vous pouvez 
aussi sauver votre memoire sur disque 
et retrouver des mois apres le point ou 
vous en etiez, comme avec une 
wildcard. Vous pouvez passer des 
images d'une application a une autre, 
etc. II gere trois applications 
simultanement. 

Deux points noirs. cependant, pour ce 
programme : d'abord, les applications 
concernees doivent permettre faeces au 
tableau de bord, et beaucoup ne le font 
pas, a commencer par le Prodos 1.1.1. 
Ensuite, il est muni d'une protection a 
la fois invisible (les disques sont 
copiables et les copies scmblcnt 
fonctionner) et vicieuse (il modifie, des 
octets de ia Ram de configuration de la 
machine, ccux qui sont conserves 
meme quand on l'eteint), 

Savicz-vous qu'un outil de debuging 
est cache" dans la Rom de votre GS ? 
Pour avoir acces au Memory 
Peeker, tapez : 

CALL -151-J 

o - eJ (sortie d'emulation) 

FF/iSOOxJ (installation de I'outil) 

Cl - CTRL - escJ (tableau de bord) 

A lire 




Apple France 
vient de traduire et 
publier un certain 
nombre de livres 
et documentations 
Apple. Toutes les 
publications tech- 
niques Apple sont 
une merveille de 



pedagogic de claruS etd'exaciilude, et 
sont tics agrdablcs a lire. Font done 
desormais partie des indispcnsables a 



demander a votre revendeur avant qu'ils 
ne soient 6puiscs : 

— Manuel de Reference de 
I'Imagewriter II (vous 
n'utilisez pas 10% des possibilitis 
dc cette excellente imprimants) ; 

— Le Guide des Interfaces 
Apple (indispensable pour 
comprendre le fonctionnement de 
votre port s6rie, ou choisir le bon 
cable pour InterPom's) ; 

— La Programmation en Basic 
avec ProDOS (un des meillcurs 
ouvrages sur le Basic) ; 

— Manuel de Reference de 
('Instant Pascal (l'lnstant 
Pascal est un outil extraordinaire 
pour apprendre et enseigner le 
Pascal, y compris celui du Mac. 
En revanche, il est inutilisablc 
pour developper). 

A lire aussi : les numeros 34 et 
suivants de Pom's. Vous apprendrez 
dans la chronique Apple 11 for ever : 

■ comment mettre un IBM dans 
votre Apple ; 

• comment mettre un Apple dans 
votre IBM ou compatible ; 

• comment utiliser les drives 8OOK0 
compatibles Mac sur 1'Apple // ; 

■ comment accclcrer lc chargement 
du systeme sur GS ; 

■ comment transformer un antique 
][+ en station Citizen Band ou en 
labo de physique ; 

■ quels langages utiliser sur GS ; 

■ comment piloter la LaserWriter 
avec un //e ou un tic ; 



Accolade 

20833 Stevens Creek Boulevard 
Cupertino - CA 95014, USA 

Ac tivision 

P.O. Box 7286 - Mountain View 

CA 94039 - USA 

Beagle Bros / Software Touch 

3990 Old Town Avenue - Suite 102C 

S an Diego - CA 92110 - USA 

Broderbund Software, Inc 

17 Paul Drive - San Rafael 

CA 94903 - USA 

Datapak Software 

14011 Ventura Boulevard - Suite 507 

Sherman Oaks - CA 9 1423 - USA. 
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Froggy Software 

33, Avenue Philippe-Anguste 
75011 Paris -ir 43 58 25 98 

Jed Design, Inc 

3300 Central Avenue 5E - Canton 

Ohio 44707 - USA 

Roger Wagner Publishing 

1050 Pioneer Way - Suite P 
El Cajon - CA 92020 - USA 



Sierra On Line 

5750 France Avenue South 

Suite 123 - Edina - MN 55435 - 

USA 

Springboard Software,Inc 
7808 Creekridge Circle - Minneapolis 
MN 55435 - USA 
Thundemare 

21 Orinda Way - Orinda - CA 94563 
USA 



VersionSoft 

94, rue Lauriston - 75116 Paris 
" 47 27 71 72 

Zip Chip 

11926 Santa Monica Boulevard 
Los Angeles - CA 90025 - USA 





(ProDOS oblige) ma/s tous ies revendeurs Apple peuvent vous la 
fournir. 



2) Pbrn AuxMove - 6 1. 

De: Andrg KRZELJ (AK14) - 22 sep87 16h46 tel^phonique 

Pour adapter des programmes de ['Apple // au GS, comment faire 
pour remptacer Auxjrtove et pouvoir deplacer des blocs dans 
TOUTE la memoire ? 

Deux mSthodes pour remptacer AuxMove : 

1) Vous inspirer de la routine de VB Tomino (Pom's 32 page 10} 
qui est une boucie constitute de : 

AFbbmmhh (IDA adresse sur 3 octets a f ewers, hh = rf page) 
8F bbmmhn (STA adresse sur 3 octets a I'envers, hh = if page). 
La meme methods a ete employee dans Peeks et Pokes longs 
(rf>3u). 

2) Le mieux est d'utiliser ^instruction de d6piacemcnt de blocs 
MVP. 

MVP banc_depart, bancjdestination 

X contonant I'adresse sur 2 octets depart 

V contenant i'adresse sur 2 octets de destination 

A contenant le rib d'octets a deplacer. 

Faitcs PHB avant et PLB apres pour priserver DB. 



1JAIDE..AIDE...SVP.10I. 

De: Jean QUINNE (JQ13) - 07 oct 87 1 Dh31 



'Duns cette rubriquz, vous twuvez un refUt de 
CactiviU (fe noire. 6oiU aux. fettres (empll) sur 
Ca-tvaCom, 



4) QUEST N32-3I. 

De: Michel LE PORT {MLP10J -31 oct 87 18h1 1 

Pourriez-vous m'indiquer la correspondance des homes 2 3 7 de 
la prise DBS avec la prise interieure 16 bricries du Joystick ? 
Mcrci. 



Void la correspondance des broches Joystick : 
DB9 INTERNE 



1 
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Ce type dinformations se 


2 


1 


trouve dans le 'Manuel de 


3 


8 


Reference Apple //e' 


4 


7 


disponible chez tous Ies 


5 


6 


revendeurs Apple. 
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4 
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3) Pom's £2-3!. 

De: Arnaud KOPP (AK24) - 1 7 sap 87 20ri56 

Dans Pom's 22 page 17, vous pariez du programme RENUMBER, 
maisou se trouve-il? 
Arnaud Kopp 

Le Renumber auquet on fait allusion dans le numero 22 de Pom's 
est un utiiitaire qui figure sur la disquette Master DOS 3.3. 
Gette disquette n'est plus aujourd'hui livrte avec Ies ordinateurs 
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Bonjour ! 

Ici Jean Quinne de Nouvelle-Caledonte. 

Bien recu le cable pour transfer! (ichier entre A2E el Mac, mais 

rien ne marcbe car... 

Je ne sais pas comment reeuperer Ies fiehiers de mon disque dur 

PROFILE qui sent en pascal 1 ,3 d une pari ; 

je viens de recevoir la revuo no 32 ; et a ma grands joie je vois 

_ 
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que vous decrivez a la page 63 qu'il y a jne disquette de 8OOK0 
avec in programme UFC. Est-ce que c'est ia solution ou une 
petite solution a men probleme. 

Merci et espere avoir urie r§ponse positive...Sincerements. JEAN. 

InterPom 's fonctionne sous ProDOS el ne peut lire que les fichiers 
ProDOS. Les fichiers Pascal DOS ou CP/M doivent etre convertis. 
L 'utiiitaire Universal File Conversion est vendu par : 

Quality SotfWare 

21610 Lassen Street 

Chatsworth 

California 91311 USA 
par correspondance avec cane Visa au prix de 34, 95 dollars. 

Get utilitairs permet de lacon simple de convertir les fichiers entre 
les 4 Dos : DOS 3.3, Pascal, ProDOS (on SOS) et CP/M. 

2} dBase- 6 1. 

De: Malik AIT BACHIR (MAB10) - 1 9 sep 87 08h37 
Bonjour 

Je souhaiterais reprendre des fichiers dBase 2 crees sur Apple 
dans mon PCsur dBase 3. Est -ce possible avec les softs Inter- 
Poms po jr des fichiers en CP/M. 
Merci pour voire reponse. 

Les fichiers dBase 2 peuvent e'tre transmis sur I'lBM via 
InterPom's ; toutefois, il devront etre convertis sous ProDOS avant 
transmission. 

Bien entendu, II restera a re'gier les e'ventuelles differences de 
format entre dBase2 sur Apple et dBaseS sur IBM. 

4) Probleme... - HI. 

Do: Henri PIERME (HP10) - 22 sep 87 19h29 

Bonjour,., J'ai achele le dernier Pom's mais j'ai qq probleines 
avec le programme Lemouse... lorsqu'un men j est deraule il rests 
affiche ? 

Et il y a une erreur daffichage du 2e menu que Je n'ai pas reussi 
a corriger (e'etait pire)... 

Je iiens a vous preciser que je possede un Apple/te l28ko 65c0£. 
Merci 

Effectivemeni le programme LeMouse ne fonctionne que sur un 
lie {comme I'indique la revue). En fait, il ne fonctionne que sur//c 
12$Ko, ce programme 4tant allergique aux nouveaux 384Ko 
(souris en slot 7). 

6) ROUTINE PRODOS COPIE ECRAN . 1 I. 
De: Marius MARTINET (MM68) - 09 OCt 87 21H54 

...pouvant tourner sur cet appareil, Je suis un nouvel abonne a 
votre revue. 

Voire message est court et nous ne sommes pas sur de vos 
besoins. 

Pom's a public dans son nume'ro 17 un pgm de copie de l'6cran 
HGR sur Epson, dans son numero 18, une copie de I'e'cran DHGR 
sur ImageWriier et dans son numero 19, une copie de I'ecran 
HGR sur ImageWriter, 



Dans un prochain nume'ro, nous publierons un pgm de copie de 
fecran texts 40 ou 80 colonnes sur toutes imprimantes. 

3) Questions - 11 f. 

De: Patrice DEIORME (PD28) ■ 1 1 oct 87 19K05 

Bravo votre revue est faniastique. 

Je possede un Apple lie, je voudrais savoir quels sont les 

langages 

Pascal qui fonctionnent sans drive externe. En ce qui concerne 
Instant Pascal est-il suffisant pour developperdes togiciels impor- 
tants ou est il restraint a I'apprentlssage du Pascal, pouvez vous 
me donner son prix. 

Vous avez publie plusieurs montages electroniques concemant la 
communication (composeur de numeVos, cordons minitel, 
detecteur de sonnerie) est-il possible de regrouper ces 3 mon- 
tages en un seui afin de n'occuper qu'une seul prise de I'Appie. 

- Les Pascal d'Apple (1.2, 1.3) se contenient d'un seul lecteur, 
mais quel travail : II faut en permanence changer la disquette, 
parfois pendant I'execution d'un programme... 
■ instant Pascal permet I'apprentissage et te graphisme mais, 
e~tant interprets, il est plus lent et convientmal pour des applica- 
tions d'importance. 

Les revendeurs Apple vous conseilleront certainement et sauront 
vous donner des prix. 

Bien entendu, regrouper les montages est chose possible mais en 
tous cas, ils occuperont deux prises : le joystick et la prise 
communication. 

1) Disquette //GS- 71 

De: Christian RICHAUME (CROO10) - 05 oct 87 1 9h26 

J'utilise un IIGS et vos disquettes 3.5. 

Pour les renrjre boolabtes il esl necessaire de (aire beaucoup plus 

que ce que vous conseillez : "installer les fichiers Prodos et Basic 

System" 

Une marche a suivre tres detaillee semble necessaire, tout le 
monde n'ayant pas a sa disposition un informaticiende haut niveau 
pour aider I! 
Amicalement C.R. 

Etpourtant, les disquettes Pom's deviennent 'bootabies' pat le 
simple ajout de ProDOS (P8) et Basic.System. Cela suffit pour 
obtenirle curseur et permettre de lancer tout programme. 
Bien entendu, un systeme reduit tel ceiui conseme ne permettrait 
pas a GSPaintde bnctionner (il nGcessite ProDOS 16) mais, 
comme ce n'est pas le but. .. 

En revanche le programme QDBasic de ce numero est le premier 
programme de Pom's qui ne'eessite ProDOS 16. 

5) S.O.S. Appiewriter II sur I! GS: Possibility... - 10 1. 
De: Jean-Pierre BOULESTEIX (JPB12) - 21 oct 87 19h52 

Bonjour, et merci d'avance pour le "tuyau" qui me serail tres 
prScieux : 

Je travaille avec un logiciel de communication qui s'appel PROS- 
PECTOR, apres avoir "recolte" les adresses sur Minitel je dois les 
retravailler avec un trailement de texte en DOS 3.3. Done j'utilise 
Appiewriter sur mon lie mais il m'arrive d'avoir des disquettes 
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140K pleines et pas lisibles dans feur lotalite: la solution efant de 
passer mes ticmers texte sur disk 8OOK0. 

Done sur II GS..,? que faire, et quel seralt I'autre traitement de 
texte DOS 3.3 qui pourraiE etre aeceple sur II GS? Merci d'avance, 
et bravo pour I'idcc d'etre sur Catvacom. A vous lire- 
Pour uliliser un lecleur 8OOK0 en DOS 3.3, it faut un DOS modifie 
(avec UNIMATE par exemple), mais cela contrarie AppleWriter. 
MagicWindow conviendrait peut-itre mais II n'a pas la souplesse 
d'AppleWriter. Convertir les fichiers en ProDOS avant do fes traiter 
n'est pas simple non plus. 

Nous ne voyeurs que !e renoncement a Prospector I ; avcz-vous 
essaye le programme que nous avons publie dans notre numero 
30. T.POMS. 

La 'recolte' d'adresses sc fait dans un fichier ProDOS non limits 
en faille, directemenl modifiable par AppleWriter (pourquoi pas 
avec une petile routine WPL pour acc&erer les choses ?}. 



6) Conseil d'achat- 10 L 

De: David BENSIMON (DB25) - 21 oct 87 20h48 

Juste un conseil a ma revue preferee : 
Possesseur d'un He (illustre ancetre), je have d'envie devant le 
llgs, mais voila, I© Mac + coute actuellement le meme prU que le 
ligs couleur. 

Conseillerez-vous a un adepte de I'assemhleur du 6502, 
possesseur de nombreux programmes et routines... un llgs, suite 
logiquedu lie, ou un Mac + ? 

Deuxieme question : L'extension 512k du llgs fonctionne-elle 
comme la carte feline ou est-elle reellement une extension 
memoire (e'est -a-dlre sans commutation de banc memoire) ? 
Merci d'avance. 

Bonne question I Rtiponse bleu delicate, mais void quetques 
elements de reflexion : 

Mac: 

- Rapidite du processeur —> souris ptaisante a utiliser, gestion 
de I'ecran graphique partiwtierement agreable ; 

- Ergonomie, souplesse de la gestion de disque ; 

- Assembleur G8000 radicalement different du G503, e'est un 
autre monde ; 

- Pas de possibiiile de bficler une petite routine sous moniteur 
pourun simple essai; 

■ En Basic, on peut tairs la meme remarque : comment 
concevoirun pgm sans gerer evtinements, fenetres... 

Apple IIGS: 

- Possibility de rgcuperer tous !es pgm Apple it ; 

- Possibiiile de travailler '£ I'Apple //' (Monteur, Basic, Assem- 
bleur 6502...) ; 

- Le 65816 est le proiongement du 6502, on n'est pas depayse, 
mime avec 16 bits I'accumuiaieur, e'est bien rassurant I • 

- Pas encore de vrai Basic digne de ce nom (en fait ii sera 
bienidtdisponible...};; 

- Plus nous le pratiquons, plus nous lui trouvons un air Mac ; 
. Gestion de fenetres; 

. Routines graphiques QuickDraw (voir cc Pom 's pour 



I'utilisation de QuickDraw sous Basic Applesoft) ; 
ProDOS 16 bien proctie du HFS (en fait e'est le HPS qui 
est proche...) ; 

. Gestion des evenements (souris, clavier, insertion dis- 
quette...) ; 

. Faire une application 65816 est aussi comptexe qu'une 
application 68000 ; 

. Accessoires de bureau ; 

. AppleTalk : GSPaint permet de commando la Laser- 
Writer... ; 

- Lenteur du processeur, on voit les ic&nes se dessiner, la 
souris n'est pas tres ptaisante (quand on vient du Mac) ; 

■ Couleur (mais difficutte de prograrrtmation) ; 

- Seuls §4Ko sont accessibles depuis le Basic Applesoft, au- 
deia, on commute :ies 'n' m§gaoctets ne sont pas en llgnes 
mais par page' de 64Ko ; 

Dernier element : Pom's donnera de plus en plus de pgm aux 
possesseurs de GS (mais sans reduire la piacB du Mac.) 

Cruel dilemne ! 



4) RECHERHE ADRESSE... - 4 I. 

De: Jean QUINNE (JQ13) - 22 oct 87 I0h53 

Bonjour ici Jumbo Video(JQ13) Quinne Jean 

Connaissez-vous une adresse pour un programme d'astrologie sur 

Mac? 

Ou trouver I fyperCard et MultiFinder ? 
Merci et sinceres salutations. 

La seule adresse que nous ayons trouvdo : 

Decleir Louis 

103/731 Bldde VCalmy 

59650 Viiteneuve d'Ascq 

20434387 
programme 0H en Me'gamax C. 

HyperCard et MultiFinder : disponibilite en francais parait-il 
en novembre/d6cembre chez les revendeurs Apple. Les 
developpeurs peuvent obtenir une version US aupres d'Apple. 
Plus de precisions dans la cit§ Mac de Catvacom... 



4) interface utilisateur - 6 1, 

De: Patrice DELORME (PD28) - 22 OCt 87 191107 

Je suis cn train de concevoir une interface utilisateur en LM sur 
Apple lie du style Macintosh mais je me heurte a des problemes 
d'organlsation des routines. 

Pouvez-vous me consciHcr un livre sur ["interface utilisateur du 
Mac qui debate des problemes techniques de cet interface. 
Merci d'avance. 

Pour les contraintes a~ respecter : 
Inside Macintosh vol. 1 (Macintosh User Guidelines). 

Cela ne vous donnera que les principes a respecter mais aucune 
solution concernant la programmation de I'Apple //c : nous ne 
voyons pas que vous conseiller d'autre. 
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Excel - Bibliotkeque de 
macros, par Mary Campbell, Que 
Editions, 356 pages. Traduction. 

Un livre pour ceux qui ne veulent 
progresscr que dans le domaine des 
macros. Comme il s'agit d'unc 
traduction, on a droit aux surprises 
habituelles : tout le premier chapiire, 
par exemplc, indiquc dcs virgules 
comme scparateurs d'arguments ; la 
program/nation lineaire est ddfinie 
comme unc programmation de haul en 
has... 

On peut regretter l'absence de lists 
recapitulative donnani une vue 
d'ensenible des fonctions et des 
commandes macros. L'interet principal 
de I'ouvrage reside dans les excmples 
de macros fournis. 



Excel applications, par David K. 
Simerly, Sybex, 296 pages, 248 F. 

Le prix n'est pas du tout jusn'fi6 par la 
qualite ou 1'interSt de ce livre : ce livre 
fourmilie d'exemples de formules mal 
construites et pourrait servir de base a 
un cours ssff 1'audit et 1'amelioration 
de modeles Excel. Ainsi, de fayon lout 
a fait originaie, l'auteur invente une 
formule comme : 

SOMME(L9-(L9*Q,4)) 

la ou : 

0j6*L9 

suffirail ; les exemples de cet ordrc 
sont multiples. 

L'auteur presenle les codes dc 
presentation des en-tetes et pieds de 
page tels qu'ils sont decrits dans la 
documentation d'Excel ; malheureusc- 
ment, dans ia realite, ils ne 
ionctionnent pas comme prevu et 
l'auteur ne s'en est apparemmcnt 
jamais rendu compte. Pour savoir 



comment marchcni ces codes, il faut 
se referer au Guide pratique d'Excel on 
a Excel efficace, chez Cedic-Nathan. 



Graphisme et mise en page sur 
Macintosh, par Andreas Pfeiffer, 
Cedic-Nathan, 315 pages, 3 ID F. 

II s'agit la d'un ouvrage proche, 
pratiquement une seconde edition, 
serieusement remaniee, du livre 
Applications graphiques pour 
Macintosh. L'auteur est competent et 
pratique ce qu'il enscignc. Scul 
probleme, le livre etam publie en 
octobre 86, il n'inclut pas Xpress et 
prdscntc Rcady-Sct-Go dans une 
version 2. 



L'editiQD. sur Macintosh, par A. 

Chictieiy, J.-P. DrieuA et A. Jarlaud, 
Dunod, 208 pages, 145 F. 

Le sous-titre indique "Think Tank, 
More, McWrite (sic), Jazz, Word, Mac 
Auteur. Writer Plus". C'est tout dire, 
quand on sail que Jazz et Mac Auteur 
sont quasiment aux oubliettes, et que 
Writer Plus a rdussi a faire regretter 
son retard (tarn qu'il etait en retard, on 
ponvait encore rSver...). Le Word 
couvert par le livre en est a la version 
1.15. Certes, nous avons ce livre 
deputs bien deux ou trois mois mais. 
meme a sa sortie en mars 87, il da tail 
deja. Si ce livre vous inte'resse, 
attendez done qu'il sorte en deuxteme 
6dition. . , 



Votre permis de conduire un 
ordinateur, par Francois Gazay, 
Tendances et dvolutions technolo- 
giques, 207 pages, 95 F. 

Cet ouvrage a I'avantage d'etre 
relativcment clair et facile a lire. Les 
inconvenients : une presentation 



sobre, pour ne pas dire spartiatc, et un 
contenu parfois un pen trop sommaire 
et pas tout a fait d'actualke. Ainsi, le 
chapitre Langages ne parle rneme pas 
d'Ada, et Ton a I'impressinn que 
Tauleiir ne coimail ni les Macintosh, 
ni a fortiori les equipements puissanls 
que sont aujourd'hui les 386 el autres 
Mac II. 



Excel efficace, par Herve Thiriez, 
Cedic-Nathan, 263 pages format A4, 
295 F. 

Disquette d'accompagnement d if fusee- 
par Editions MEV : 175 F (800K) uu 
195F(2 x 400K). 

Une ccntaine de themes, classes en 13 
ehapitres et lisibles s6parcment les 
uns des autres, sont traites dans cet 
ouvrage qui s'adresse a tons les 
possesscurs d'Excel ayant deja maitrise 
le B.A.BA de cet excellent togiciel. A 
la fin du livre, plusieurs tables de 
reference vous pcrmettent de retrouver 
rapidement toutes les fonctions, les 
fonctions macro, les commandes et les 
raccourcis d'Excel. Les chapitres sont 
les suivants : Excel sur Macintosh, 
L'idition, Reference aux cellules, 
Presentation des feuilles de calcnl, 
Performances, Les formats, Modifica- 
tion dcs structures, L'utilisation des 
tahleaux, Organisation des donnees, 
Les macru-foucliuiis, Les macro- 
commandes, Pot-au-feu d'astuces et 
Audit d'une application. 
Dans la lignee de MacAstuces et dcs 
Secrets de Multiplan, ce livre est une 
mine de renseignements sur Excel et 
d'astuces d'utilisation. C'dtait 1c 
best-seller du stand PSI-Cedic a Apple 
Expo. 

Attention : le bon de commande de la 
disquette a etc omis du premier lot de 
livres. Sachez done que vous pouvez 
commander la disquette directernent 
aupris dc Pom's (voir te bon de 
commande en fin de ce nnmero). 
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Une commande a 23 heures ? 

Vous etes deja nombreux a profiler de la messagerie 
CalvaCom pour vos questions techniques ct a rcccvoir 
nos reponses meme a des heures indues ! Voire revue 
est maintenant en mesure de vous proposer un nou- 
veau service qui ajoutc la rapiditc telematiqueaux pro- 
ducts Pom's : la passion n'attend pas... 
Si vous etes abunnes a CalvaCom, laissez-nous vos 
commandes dans notre boite a lettrcs {empll) : une 
disqtiette commandee le matin avattt 10 heures sera 
expedite le jour meme... CelLe commande peut, bien 
sur ctre saisie directement sur le clavier Minitel mais, 
solution plus souple, vous pourrez utiliser le fichier 



texte a exporter, nomme Commande.CLV sur la dis- 

quettc dc cc rtuinero. 

Vnus devrez nous indiquez : 

- les produits souhaites, 

- vos nom et adrcsse, 

- votre numero de Carte Bleue, Visa, Eurocard ou 
Mastercard, 

- sa date d'expiration, 

- le montant de votre commande. 

En demandant un accuse de reception, vous connai trcz 
l'hcure de traitement... 

Belle occasion dc s'abonner ! 



Mots Croises 



Gerard Vorreux, a bonne du Nord, et Gerard Kittel 
de la region parisienne, ontete les plus prompts dans 
la resolution de notre problems 32 
(solution ci-contre). lis beneficient 
d'un avoir de 200,00 F. Felicitations 
egalement a : Robert Baccou de 
Paris, Alain Pastor de Montreuil, 
Gisele Perrault de Paris, Gerard 
Mandel de Paris, C. Jacolin de 
Allauch, Rene Martin de Cognin, 
M. Stankievitch dAix, Ferdinand 
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Gibert d'Eyguieres, Jean Payat de Chenove, Olivier 
Blondeau de Saint Maur, Pascal Quilez de Bordeaux 
et A, Blandy. Les possesseurs de 
Macintosh trouveront sur la 
disquette d'accompagiieriient de ce 
numero la grille et le programme de 
Roland Jost (application Turbo- 
Pascal publiee dans le numero 32) 
quiremplaceraavantageusenientle 
crayon ct la gomme pour la 
resolution du problemc ci-dessous. 



Problems 33 par Jo'elle Piard 



Horizontalement 

1 - Tot ou fute. 

2 - Ecrit des sous-programmes , par habitude ? 

3 - Assoiffer. Bien mange. 

4 - Met tout-a-fait hers de soi, Partie de charpente. 

CEillet sans queue. 

5 - Fief. 

6 - Lointains souyerains. Manque d'entrain. 

7 - Ekitra. Prsfixe vaporeux. 

8 - Imaginaires. Tout benefice, Drame. 

9 - Premierement, rn-ais ce n'est pas le debut. 

10 - Tracassates. 



Verticalement 

1 - Organism* rouge. 2 - N'a que faire des paroles... - Deesse blanche. 

3 - Ne support pas la rosiere... - Personnel. 4 - Pour 1'infection. Pansue. 

5 - Halons. VH0 pour les Anglais. 6 - Suffix* memorable. - Henri u fit construire un chateau. 

7 - Pour le 2.1 vertical. - Jeu d'aYentures. 

8 - Personnel ou personnel. Sans interet pour les vaches. Copule. 

9 - Meme pas echafaude. 10 - Coca - Bebetes. 
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Disquettes Apple ][ 

CLV_Pom's - 140Ko ou BOOKo 
Editeur Videotex - 140KO 
E.P.E.5.1-140KO 
EP.E.5.1 -800KO 
Max (monifeur etendu) - UOKo 
BananaSoft - UOKo 
Pascal -14QK0 
Ordico-140Ko 
Dominos -140Ko 
COGO-140KO 
Ludologic-UQKo 



Recueils Pom's 

Numero 1 (Revues 1 a 4} 

Disquettes 1 a 4 
Numgro 2 (Revues 5 3 8) 

Disquettes 5 a 8 
Numero 3 (Revues 9 a 12) 

Disquettes 9 a 12 

reliuresioilees 



pour 6 numeros, soitunan 



Apple ][ 8OOK0 3'5 numero 29 
Apple ][ 800Ko 3'5 numero 30 
Apple ][ 8OOK0 3'S numero 31 
Apple ][ 8OOK0 3'5 numero 32 
Apple ][ 8OOK0 3'5 numero 33 





Macintosh 






Accompagnement 




200,00 F □ 


CLV Pom's 


200,00 F 


□ 


A 


][ UOKo 4 


6000 F 


□ 


200,00 F □ 


Excel eff. 800K 


175,00 F 


□ 


A 


If 140Ko5 


60 OOF 


□ 


200,00 F □ 


Excel efUOOK 


195,00 F 


□ 


A 


][ UOKO 6 


60,00 F 


□ 


200,00 F □ 


MacAstuces 


200,00 F 


□ 


A 


IF UOKo 7 


60,00 F 


□ 


1 50,00 F □ 


Mac 'A' 


80,00 F 


□ 


A 


][ UOKo 8 


60. OC F 


□ 


200,00 F □ 


Mac 'B' 


80,00 F 


□ 


A 


If UOKo 9 


60 OOF 


□ 


80,00 F U 


Mac V 


80,00 F 


□ 


A 


11 UOKo 10 


60,00 F 


□ 


200,00 F □ 


Mag 'D' 


80,00 F 


□ 


A 


if UOKo 11 


60 00 F 


□ 


80,00 F □ 


Mac T 


80,00 F 


□ 


A 


ir uoko 12 


60 00 F 


□ 


200,00 F □ 


Mac 'F 


80,00 F 


□ 


A 


f UOKo 13 

II 1 lUny 1 w 


60 OOF 


□ 


80,00 F □ 


Mac *G' 


80,00 F 


□ 


A 


ir 14DKn 14 

II l *r Lrr \u l t 


Rfl no F 


□ 




Mac 'H' 


80,00 F 


□ 


A 


f UOKo 15 


60 00 F 


□ 




Mac T 


80,00 F 


□ 


A 


If UOKo 16 


60,00 F 


□ 




Mac 17 


80,00 F 


□ 


A 


|[ UOKo 17 


60, 0C F 


□ 




Mac 18 


80,00 F 


□ 


A 


If UOKo 18 


60,00 F 


□ 


140,00 F □ 


Mac 19 


80,00 F 


□ 


A 


ir UOKo 19 


60,00 F 


□ 


200,00 F □ 


Mac 20 


80,00 F 


□ 


A 


If UOKo 20 


eojoo f 


□ 


140,00 F □ 


Mac 21 


80,00 F 


□ 


A 


If 14OK0 21 

II 1 Tvl \\J fa 1 


60 00 F 


□ 


200,00 F □ 


Mac 22 


80,00 F 


□ 


A 


|[ UOKo 22 


60,00 F 


□ 


140,00 F □ 


Mac 23 


80,00 F 


□ 


A 


|[ UOKo 23 


60,00 F 


□ 


200,00 F n 


Mac 24 


80.00 F 


□ 


A 


[ UOKo 24 


60,00 F 


□ 




Mac 25 


80,00 F 


□ 


A 


[ 140KO 25 


60,00 F 


□ 




Mac 26 


80,00 F 


□ 


A 


|[ UOKo 26 


60,00 F 


Z 


60,00 F □ 


Mac 27 


80,00 F 


□ 


A 


[ 140K0 27 


60,00 F 


□ 




Mac 28 


80.00 F 


□ 


A 


|[ UOKo 28 


6o!oO F 


□ 


80,00 F □ 


Mac 29 


80,00 F 


□ 


A 


[[ UOKo 29 


60,00 F 


□ 


80,00 F □ 


Mac 30 


80,00 F 


□ 


A 


|[ UOKo 30 


60,00 F 


□ 


80,00 F □ 


Mac 31 


80,00 F 


□ 


A 


1 UOKo 31 


60,00 F 


□ 


80,00 F □ 


Mac 32 


80.00 F 


□ 


A 


I UOKo 32 


60,00 F 


□ 


80,00 F □ 


Mac 33 


80,00 F 


□ 


A 


|[ UOKo 33 


60,00 F 


□ 



Revue rf 8 
Revue n° 13 
Revue n° 17 
Revue n° 21 
Revue n° 25 
Revue rf 29 
Revue n° 33 



35.00 Fn 
40,00 FD 
40,00 FD 
40,00 FD 
40,00 FD 
45,00 FD 
45,00 FD 



Revue n- 10 
Revue n° 14 
Revue n° 18 
Revue n° 22 
Revue n° 26 
Revue n° 30 



40,00 F □ 
40,00 FD 
40,00 FD 
40,00 F □ 
40,00 FD 
45,00 FD 



Revue n°11 
Revue tf 15 
Revue n° 19 
Revue n° 23 
Revue n° 27 
Revue n" 31 



40,00 FD 
40,00 FD 
40,00 FD 
40,00 FD 
45,00 FD 
45,00 FD 



Revue n° 12 
Revue n° 16 
Revue n° 20 
Revue n° 24 
Revue n 6 28 
Revue n" 32 



40,00 FD 
40,00 F D 
40,00 FD 
40,00 FD 
45,00 FD 
45,00 FD 



Abonnements pour six numeros a partir du 

ia revue seule 

Ja revue et les disquettes Apple J[ UOKo -5' 1/4 

ia revue et los disquettes Apple ][ 8OOK0 - 3' 1/2 

la revue et les disquettes Macintosh 

la revue, les disquettes Apple ][ UOKo - 5' 1/4 et les disquettes Mac 

la revue, les disquettes Apple ][ 8OOK0 - 3' 1/2 et les disquettes Mac 



a : 



225.00 F 
525,00 F 
625,00 F 
625,00 F 
925,00 F 
1025,00 F 



□ 
D 
D 
D 

D 
D 



Erwoyez ce bon et voire reglemenl a. : Editions MEV-1 2. rue d'AnJou - 78000 Versailles 

Nom : 

Adresse : _ 



Reglementpar: CBA/isa/Eurocard/Mastercard D*n Cheque bancaire □ Cheque postal n Mandat □ 

numero de la carte date d'expiration 

Montant , F Signature: 



* pour les envois par avion, ajcuiez 15 F par riumero at/ou pardisqiietw soil, par example, 90 F pour un abonnement awe ou sa^s disqusttes. 
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Cable-interface de communication Apple/Minitel 

Cotto liaison est indispensable pour faire fonctionner les programmes suivants : 

< MinBas pour Apple ][+, lie, //e+, lie et //GS" : programme permettant renregistrement des ecrans Mlnitel, la restitution a lolslr 
hors reseau, le stockage et/ou I'impression de copies d'ecran du Minitel, et aussi I'envoi de textes ou messages sur un serveur, ces 
messages stent prepares a I'avance avec n'importe quet programme de traliement de testes. Programme du numero 27 de Pom's, 

• Mlnlfel/1 pour Macintosh : programme identique a MinBas pour Apple ][, avec en plus un mini-editeur de texte pour la preparation 
el le stockage des messages sans sortir du programme. Programme publie dans le numero 27 de Pom's. 

• InterPom's 1 ,0 pour Apple ][+, //e, //e+, lie et //GS* et Macintosh : programme de telechargemenf entre Apple ][ et/ou Apple ][ 
et Macintosh, Ce logidel aulorise la transmission de n'importe quel type de fichier (systeme, texts, binaire, Basic.) en utilisant le 
Modem du MinM Programme publie dans le numero 28 de Pom's. 

■ TPom's pour Apple ft, He, //e+, lie et //GS** et Macintosh : programme de recuperation de I'annuaire telephonique sous la 
forme de lichiers texte, Numero 30 de Pom's. 

• ClvPom's pour Apple //e, //et, //cet//GS" et Macintosh ; programmes de communication pour une meilleure utilisation de 
CalvaCom et des serveurs "ASCII'. Programmes presented dans le numero 31 de Pom's, page 2. 

■ Paint - Minitel pour Macintosh et HGR - Minitel pour Apple ][+, Ifo, //e+, lie et //GS" : graphisme et Minitel, programmes 
proposes dans ce numero. 

' ce programme est prevu pour fonctionner avec une carte Super Serie Apple ; le port serie inlegre de PApple IIG3 ne convient pas. 
Toutefois, si vous desirez utiliser le port integre afin d"y connecter le Minitel pour d'autres applications, commandez un cable pour 
Macintosh Plus, 

** sur un Apple IIGS, ce programme fonctionne indifferemment avec le port serie inlegre ou la carte Super Serie Apple, Pour 
connecter le port integre du IIGS, utiiisez un cable pour Macintosh Plus. 

Je desire recevoir: cable MinitelAApple ][+, He, //e+, IIgs avec SSC a 225,00 F 

cable Minitel/Apple //c . a 225,00 F . 

cable Minilel/Madntosh 128 & 51 2Ko a 225,00 F 

cable Minitel/Mactntosh Plus, IIgs port integre . a 225,00 F 

cable Minitel/IBM PC™ . a 225,00 F . . 

cable de liaison locale Apple ll/Mac/IBM™ * a 225,00 F 

'(precise* le type des deux machines a relier : Mac 51 2, Mac Plus, Apple lie, //c, IIGS, IBM PC ) 

" pour les envois par avion, ajoutez 15 F pardible. 

Envoyez ce bon et votre reglement a : Editions MEV - 12, rue d'Anjou - 73000 Versailles 

Norn : , 

Adresse : . 

Reglement par : CBA/isa/Eurocard/Mastercard Cheque bancaire □ Cheque postal □ Mandate 

numero de la carte date cf expiration 

Montant_.. _, F Signature: 



Programme de transmission InterPom's 

Ce programme decrit dans le numero 31 vous donne la possibilite d'echanger a distance via Minitel et en local des lichiers de texte 
entre Apple //, Macintosh et IBM PC™. Entre deux machines de meme type, tous les fichiers sont transferases : Applications, polices 
de caracteres, accessoires de bureau, commandes, document graphiques etc. 

Je desire recevoir: InterPom's pour Apple //, disquette 140Ko, 5'25 a 450,00 F 

InterPom's pour Apple //, disquette SOOKo, 3*5 a 450,00 F 

InterPom's pour Macintosh, disquette 3'5 a 450,00 F 

InterPom's pour IBM PC™ a 450,00 F 

* pour les envoi par avian, ajoutez 1 5 F par disquette. 

Envoyei ce bon et votre reglement k : Editions MEV- 12, rue d'Anjou - 78000 Versailles 

Norn : . .. 

Adresse : A 

Reglement par : CBA/isa/EurocarrJ/Mastercard n*. Cheque bancaire □ Cheque postal □ Mandat □ 

numero de la carte date d'expiration 

Montant_ _, F Signature: 



Depot legal : novembre 1 987, n» d'impressipa 789667 



a4 AshtonTate 



dBASE Mac 



dBASE Mac a efce specialement concu pour tirer parti de toutes les 
caracteristiques du Macintosh. Veritable gestionnaire de bases de 
donnees relationnelles, il allie toute la puissance et la fiabilite de 
dBASE III a la convivialitc du Macintosh. Nul doutc que dBASE 
Mac saura s'imposer cornme un standard au rnerne titre que dBASE 
sur PC, avec lequel il echange directement les fichiers de donnees. 
Grace a 1 'interface visuelle du Macintosh, les relations multiples entre 

^ les fichiers sont represen- 
tees a Pccran. dBASE 




tests? 




Mac possede egalement 
un puissant langage de 
programmation qui per- 
met de batir des appli- 
cations de gestion. 

3 950 F (ht) 





La Commande Eiectronique 
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